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ABSTRACT 
SIN and SOLDIER are heuristic programs written in LISP which solve 
symbolic integration problems. SIN (Symbolic integrator) solves inde- 
finite integration problems at the difficulty approaching those in the 
larger integral tables. SIN contains several more methods than are used 
in the previous symbolic integration program SAINT, and solves most of 
the problems attempted by SAINT in less than one second. SOLDIER (SOLu- 
tion of Ordinary Differential Equations Routine) solves first order, 
first degree ordinary differential equations at the level of a good col- 
lege sophomore and at an average of about five seconds per problem attempted. 
The differences in philosophy and operation between SAINT and SIN are 
described, and suggestions for extending the work presented are made. 
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Chapter 1 
Introduction 

In the last few years there has been a surge of activity on 
the design of algebraic manipulation systems*. Algebraic manipu- 
lation systems are computer based systems vhich facilitate the 
handling of algebraic and analytic expressions. One of the oft 
stated capabilities desired of such systems is an ability to per- 
form symbolic integration. Besides the obvious value of such a 
capability in symbolic calculations there is the possibility of em- 
ploying it as an adjunct to numerical integration programs for 
functions which involve parameters. In such cases a single accur- 
ate symbolic integration is likely to be preferable to numerical 
integrations taken over the range of values of the parameters. An- 
other reason for the interest in symbolic integration programs is 
the fact that the ease with which such a program could be written 
in a proposed language for algebraic manipulation has become an in- 
formal test of the power of that language. Yet the only previously 
announced symbolic integration program with any claim to generality 
is SAINT (Symbolic Automatic XNXegrator>, written as a doctoral 
dissertation by Slagle in 1961 [58] . Slagle described SAINT as be- 
ing as powerful as a good freshman calculus student. Thus the un- 
modified SAINT program does not appear powerful enough to warrant 



*For a survey of the field of algebraic manipulation see Sammet 155]. 
For a bibliography of work in the field up to 1966 see Sammet |56]. 



its use in a practical algebraic manipulation system. In 1964 a 
program which integrates rational functions was written for the 
MATHLAB project by Manove, Bloom, and Engelman of the MURE Corpor- 
ation [36]. This program filled an important gap in the capabili- 
ties of SAINT. By using such a program it appeared possible to 
write a more powerful integration program than SAINT. Furthermore 
it seemed that programs which solve ordinary differential equations 
at least as well as sophomore college students (and a good deal 
faster than such students) could also be written. Such programs 
became the goals of our research. 

We used the rational function package of MATHLAB in writing a 
second symbolic integration program called SIN (Symbolic INtegrator) . 
SIN, in turn, we used to write a program which solves first order, 
first degree ordinary differential equations. This program is 
called SOLDIER (SOLution of Differential Equations Routine). SIN 
and SOLDIER are both written in LISP [34], [20] for the CTSS system 
at Project MAC [11]. These experiments in symbolic integration are 
the principal subjects of this thesis. We believe these programs to 
possess sufficient power and efficiency that they could be effectively 
used in a practical on-line algebraic manipulation system. 

In order to clarify the domain of applicability of our pro- 
grams and in order to indicate the power of the present versions 
of SIN and SOLDIER, we present below two examples of problems 
solved by each program. The solutions that these programs obtain 
to the four problems can be found in Chapters 4 and 6. 
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Problems solved by SIN and SOLDIER 

Figure 1 

Although the capabilities of SAINT are quite impressive, 
we found compelling reasons for taking, in SIN, a substantially 
different approach. The most fundamental difference between SIN 
and SAINT is in the organization of the programs. SAINT utilizes 
a tree search as its main organizational device. Slagle compares 
the behavior of SAINT to that of freshman calculus students. We 
sought an organizational model which behaved like our conception 
of the behavior of an expert human integrator. This model was sup- 
posed to determine the methods needed to solve a problem quite 
quickly. A discussion of the approach taken in SIN is given in 
Chapter 2. 

SAINT utilizes a matching program for algebraic expressions 
called Elinst (ELementary INSTance) . We desired a program which 
was more closely organized as an interpreter for a pattern matching 
language. This program, called SCHATCHEN, is a service routine em- 
ployed throughout SIN and SOLDIER. The power of SCHATCHEN greatly 
simplified the problem of writing an algebraic simplification pro- 
gram, called SCHVUOS. SCHATCHEN and SCHVUOS are described in Chap- 
ter 3. 



Chapter 4 contains a detailed description of SIN and its 
methods. A comparison between methods used in SAINT and SIN is 
made. It is noted that SIN contains several methods not included 



in SAINT. Among these is a decision procedure for a set of inte- 

r* 2 

gration problems. Thus SIN is able to determine that Je dx and 
J*- dx are not integrable in closed form. 

In Chapter 5 we introduce the Edge (BDucational GuEss) heur- 
istic. The Edge heuristic is based on the Liouville theory of in- 
tegration. In this theory it is shown that if a function is inte- 
grable in closed form, then the form of the integral can be deduced 
up to certain coefficients. A program which employs the Edge heur- 
istic, called Edge, uses a simple analysis to guess at the form of 
the integral and then it attempts to obtain the coefficients. Edge 
is a nontradltional integration method and one that we believe is 
the first in a line of very powerful methods. 

The methods and organization of SOLDIER are introduced in 
Chapter 6. The area of nonlinear first order differential equations 
is much more difficult than just integration. Thus we were hardly 
surprised at not being able to find a concept analogous to the Edge 
heuristic of SIN. Nonetheless the power of the current version 
Of SOLDIER is comparable to that of a sophomore student in an or- 
dinary differential equations course. 

The appendices contain results of experiments performed with 
SIN and SOLDIER and a report on some other work not directly con- 
cerned with these programs. 



Many people probably believe that the cheapest way to obtain 
an integration capability would be to design an integral table 
look-up program. While we do not espouse this course of action, 
we did experiment with such a program (called ITALU). Appendix A 
describes this program. 

Richardson has recently obtained a recursive unsolvability re- 
sult in integration wich has aroused great interest p2]. We des- 
cribe this theorem and present some of our own related results 
which involve nonlinear differential equations in Appendix B. 

SAINT was asked to solve 86 problems. Of these it solved 84 
in an average time of 2.4 minutes. SIN solved all 86 problems 
with solution times which were frequently more than two orders of 
magnitude faster than SAINT. SIN solved the other two problems 
by using integration methods not available in SAINT. The fact that 
SIN was compiled and that SAINT was run interpretively accounted 
for most of the gain in speed. Results and further interpretations 
of this experiment are given in Appendix C. 

A physicist, Harold Mcintosh, used an integral table to solve 
eleven fairly difficult integration problems. SIN, after some 
prodding, solved these problems and found some minor errors in 
Professor Mcintosh's answers. This experiment is described in Ap- 
pendix D. 

In order to test the effectiveness of SOLDIER we asked it to 
solve 76 problems taken out of a differential equations text. SOL- 
DIER solved 67 of these problems cleanly with an average time of 
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about five seconds. One of these solutions indicated a misprint 
in the solution given in the text. This experiment is described 
in Appendix E. 

With the exception of Chapter 7 which presents conclusions 
and suggestions for further work the following chapters are fairly 
self contained. Thus those who are only interested in algebraic 
manipulation can reasonably ignore Chapter 2. Those interested in 
AI may wish to ignore the higher numbered chapters. 



CHAPTER 2 
HOW SIN DIFFERS FROM SAINT 

Introduction 

In this chapter we discuss in broad terms the organizational dif- 
ferences between SIN and SAINT. SAINT employs rather loose progress 
constraints in generating subproblems, and obtains a solution through 
a tree search. SIN relies on a much tighter analysis of the problem 
domain (i.e., integration) and strict constraints on progress in order 
to obtain a relatively straightforward solution. 

Heuristic Search 

In "The Search for Generality" [45 ] , Newell finds that the most 
frequent organizational structure used in Artificial Intelligence pro- 
grams is one he calls heuristic search . We shall call programs which 
employ this organization as the sole or central organizational device 
HS programs . SAINT is an example of an HS program. HS programs can 
be considered to be programs which attempt to generate a path from a 
starting node A (usually the statement of the problem to be solved, 
given in the internal representation) to a terminal node B (usually the 
last link necessary to find a solution to A) . The path from A to B con- 
sists of one or more nodes which are (again, usually) in the same problem 
domain as A and B. Thus in a theorem proving program the nodes would 
represent statements of possible theorems and in SAINT the nodes repre- 
sent expressions to be integrated. From each node the program is able 
to generate one or more successor nodes. All of these successor nodes 
could be examined to determine if they lead to a solution (a "B" node), 
but it is in the nature of AI problems that if this were to occur the 



11 



12 



program would consume too much time and space. Hence heuristics are used 
to select a set (possibly a null set) of successor nodes for examination 
in preferance to others. The use of such heuristics leads to the "heuris- 
tic" term in "heuristic search." The process of examining nodes in the 
tree which is generally produced leads to the "search" term in "heuristic 
search." 

There are many strategies for guiding the search of the tree. How- 
ever several stand out and deserve to be mentioned. One strategy is 
called "depth first." It usually selects the last node generated as the 
one to be examined next. This strategy has the effect of forcing an 
examination of a single path until it either leads to a solution or the 
program decides that it will not yield a solution. Such a strategy is 
employed in most game playing programs. At the other extreme is a stra- 
tegy called "breadth first" which selects the node which was generated 
earliest. Such a strategy was used in the Logic Theorist [44] . SAINT 
chooses the node which represents an expression which it deems to be 
one of the simplest subproblems to be integrated. 

We wish to clarify the sense in which we refer to a program as an 
HS program. The fact that a subroutine in a program uses heuristic search 
does not always imply that the program is an HS program. For example if 
SAINT's simplifier had used heuristic search in order to simplify expres- 
sions, then this fact does not imply that SAINT is an HS program (for 
example SAINT could have been just a table look-up program). Nor is it 
the case that any program which performs search even if the search is 
guided by heuristics is always an HS program. We wish to reserve this 
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name to programs which rely on conducting a search in the same domain 
in which the problem is posed. Thus programs which search for a plan 

in a different space from the one in which the problem is posed and 

* 
thereafter find the solution immediately are not HS programs. 

The Trend toward Generality 

One of Newell' s other conclusions in "The Search for Generality" 

is that AI programs have tended in the recent past to shy away from 

dealing with complex problem domains such as chess, geometry, or intex 

gration, and have increasingly concerned themselves with generality. 

By programs which emphasize generality we shall mean programs which 

are concerned with an examination of mechanisms (e.g., heuristic search) 

which are useful in many problem domains. By programs which emphasize 

expertise we shall mean programs which concentrate on a particular 

(complex) problem domain. Examples of the trend toward generality are 

the advice taking programs (e.g., Black [ 3 ], Slagle's DEDUCOHi 59 ], 

and even Norton's ADEPT [ 47 J). These programs solve toy problems 

which have been posed from time to time by McCarthy. One of the striking 

features of these programs is how little knowledge they require in order 

to obtain a solution. In fact Persson, in his recent thesis! 49 ] which 

deals with "sequence prediction" seems to feel that placing a great 

deal of context dependant information in a program would be °cheating." 

This emphasis seems to be useful when one desires to study certain 

* Our emphasis regarding the space to be searched may differ from Newell' s. 
In fact our need to use intuitive definitions and rely on analogies and 
examples points out the lack of a firm theoretical foundation in computa- 
tion, and in Artificial Intelligence. 
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problem solving mechanisms in as pure a manner as possible. 

Slagle, too, desired to use SAINT as a vehicle for studying certain 
problem solving mechanisms such as "character-method tables" (for example, 
method A is probably useful when the problem is of type 1 or type 5 — see 
Minsky [ 41 ] for a discussion of this technique) and "inherited re- 
sources" (Minsky [41 ]). We, on the other hand, intended no such 
study of specific problem solving mechanisms, but mainly desired a 
powerful integration program which behaved closely to our conception 
of expert human integrators (it should be noted that Slagle compared 
the behavior of SAINT to that of college freshman calculus students). 
Nonetheless our experiment with SIN may be used to modify or improve 
general problem solving mechanisms. 

SIN, we hope, signals a return to an examination of complex problem 
domains. Greenblatt's chess program [ 22 ] is another example of a 
recent program which deals with a complex problem domain which has been 
considerably neglected in the last few years. 
The Emphasis on Analysis 

Our emphasis in SIN is on the analysis of the problem domain. This 
analysis is both an analysis that we performed and built into the pro- 
gram, but more importantly an analysis which the program makes while 
it is solving a problem. In order to achieve high performance in sym- 
bolic integration we did not require that the program make a very com- 
plex analysis of the situation. Nonetheless the analysis that SIN does 
make markedly affects the performance of the program. When SIN is solving 
one of SAINT's difficult problems the most noticeable difference between 
its performance and SAINT's is not in the increased efficiency of the 
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solution, but In how quickly SIN usually manages to decide which plan 
to follow and the straightforward manner with which it obtains the 
solution thereafter. 

As we shall see in Chapter 4 SIN's methods are quite similar to 
those used by SAINT. However SAINT does not commit itself to a parti- 
cular method, but will frequently explore several paths to a solution 
until it finds some path which succeeds in obtaining the answer. Heur- 
istic search is used to find this solution path. Frequently such un- 
certainty is necessary in SAINT because it lacks the powerful machinery 
that SIN possesses and relies on (e.g., the rational function package 
of MATHLAB). Thus SAINT is forced to search until it finds a path 
which leads to subproblems that it can solve. For example, in J cot x dj 
SAINT cannot obtain a solution by using the substitution y ■ tan x whict 

r i 

leads to J y A n + y2\ d y since it raannot integrate the rational function. 
Thus SAINT is forced to contain a further substitution y = cot x which 
SIN can easily afford to ignore. In other cases the large number of 
subproblems proposed by SAINT arises when SAINT employs methods which 

do not perform a sufficient analysis or possess sufficiently tight 

1x2 + x 
progress constraints. For example in J — -r — dx, SAINT will consider 

transforming the quadratic in the numerator, though this transformation 

is not reasonable when one considers the square-root in the denominator 

In this problem SIN would note the square-root and would make a substi- 



Though SIN solves SAINT' s problems about two orders of magnitude 
faster than SAINT' s published figures, this statistic is deceptive. If 
SAINT were to be run under optimum conditions, SIN would only be about 
three times as fast on the average. The principal reason for this fact 
is that most of the processing time in SIN is spent in algebraic mani- 
pulation (e.g., simplification), and the cost for these operations is 
fairly constant in SIN and SAINT (see Appendix C). 
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tution which would rationalize the denominator. 

We feel that SAINT Is not the only HS program In which greater 
analysis would yield improved results. In the MATER program of Simon 
and Baylor [2 ] > heuristic search is used to find a mating combination 
in chess. When MATER considers the set of replies that Black might be 
able to make in response to a given move of White, it stores these re- 
plies in a "try list." The try list is ordered so that moves which have 
fewest responses are considered first. The set of moves which have the 
same number of replies are normally considered in a first-in, first-out 
manner ([2 ]» p. 435). This leads to a breadth-first search. Had 
the moves been stored in a last-in, first-out manner a depth-first 
search would have resulted. This search would mean that the program 
would explore a path until it became worse than some other path in con- 
trast to MATER's criterion that a path is abandoned when it is no better 
than some other path. This slight change in the strategy of the program 
would lead MATER to find solutions to some problems on which it ran out 
of space, and would not materially affect its performance otherwise. 
This analysis of MATER is due. to Henneman [ 26 ] . 

While we do not wish to suggest that a radically improved perfor- 
mance can be had in all HS programs through greater analysis, we cer- 
tainly want to emphasize the effect that such analysis can have on many 
HS programs. Since any nontrivial analysis requires a good deal of 
context dependent information, we also wish to emphasize the need for 
such information in problem solving programs. In the long run, of 
course, complex analyses and strategies will have to be represented in 
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specialized languages. We would like to see this development occur in 
the Greenblatt program, for example. 
The Three Stages of SIN 

SIN is a three stage program. In this respect already the organi- 
zation of SIN differs from most AI programs which are composed of a 
single stage with a heuristic search as its principal organization. 
The multiplicity of stages allows the programs to devote increasing effort 
in later stages. 

Stage 1 of SIN uses a method (Derivative-divides) which solves most 
commonly occurring problems. The experiment in Appendix C indicates that 

this method solves half the problems attempted by SAINT. Some problems 

x2 2 /' y 

integrated by this method are: cos x, xe , tan x sec x, x /l + x . 

We feel that all too few AI programs employ the fact that in many 
problem domains there exist methods which solve a large number of problems 
quickly. SAINT did employ this idea in its IMSLN (IMmediate SoLutioN) 
routine (see Chapter 4). However IMSLN is not as powerful as SIN's first 
stage. Evans' ANALOG! program [17] which is one of the few AI pro- 
grams which does not rely on heuristic search also could have profited 
from a first stage method. Evans' program deals with geometry analogies. 
Instructions given to humans taking a test based on these analogies are 
as follows: "Find the rule by which figure A has been changed to make 
figure B. Apply the rule to Figure C. Select the resulting figure from 
figures 1-5," Evans' program performs as if it were following the in- 
structions: "Find the rule by which figure A has been changed to make 
figure B. Also find rules which transform figure C to each of the fig- 
ures 1-5. Select the answer figure which corresponds to a transformation 
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which most closely fits a transformation from A to B." The test makers 
are essentially suggesting that one should guess the answer figure. This 
scheme, we have found, is effective in almost all the problems attempted 
by ANALOGY. Consider the figures A, B, C below: 






A B C 

A reasonable guess of the answer using the test makers' advice is: 




TRIAL ANSWER 
If such a figure is present among the answer figures then one should 
choose that answer. All that would be required for this step is that 
one test the guess for an identity with the answer figures. If this 
scheme should fail to find an answer, then one would enter a second 
stage in the program in which one would "debug" the previous guess or 
employ an analysis similar to Evans 1 . Yet once one is forced to enter 
a second stage, one has a piece of information that one did not previ- 
ously possess--that the problem is relatively difficult. Such infor- 
mation may be used to guide further processing. A further use of guessing 
will be indicated below in discussing the Edge heuristic. 

The second stage of SIN is the stage in which we spent most of the 
programming effort. In this stage the program is able to apply eleven 
highly specific methods. The principle feature of this stage is that 
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the program decides which method, if any, is applicable to a problem 
quite quickly. We shall call the manner by which this stage of SIN 
operates hypothesis formation . The routine at the heart of the hypo- 
thesis formation mechanism in SIN is called FORM. FORM checks for 
local clues in the integrand in order to generate an hypothesis regar- 
ding which method is likely to be applicable. Currently FORM can 
decide on the applicability of all but three of the eleven methods by 
using local clues. For example, if -FORM notes the subexpression sln(x) , 
then FORM will call the method which handles trigonometric functions. 
The first step that any of the methods in this stage is supposed to 
make is to verify the hypothesis that it is able to perform a transfor- 
mation which will either solve the problem or simplify it. Thus if the 
routine which handles trigonometric functions does not believe that it 
is applicable to the problem, as in Jain x e x dx, then it will return 
the value FALSE to FORM. In that case FORM might entertain a second 
hypothesis. Otherwise the method will continue to work on the problem. 

More generally we think of hypothesis formation as a three step 
process. First one analyzes the problem in order to obtain an hypothesis 
regarding the solution method. Then the hypothesis is verified by the 
method prior to attempting a solution of any subproblems. Finally, if 
the method appears applicable then it is used in an attempt to solve 
the problem. If the method does not appear applicable, a new hypothesis 
may be generated. 

We think of hypothesis formation as a model for a planning mechanism. 
As with any planning device one should strive to incorporate into the 
planner a great deal of knowledge regarding the capabilities of the rest 
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of the program. One aspect of the understanding that FORM has of SIN's 
routines Is Incorporated In its ability to "make the problem fit the 
method." By this phrase we mean that FORM is able to eliminate certain 
ambiguities in the problem. These ambiguities arise when certain subex- 
pressions in the statement of the problem hinder the recognition of the 
true nature of the problem. For example, the analysis that FORM makes 
of a problem allows it to suspect that an expression is a quadratic in 
x even though SCHATCHEN (see Chapter 3) did not match the expression to 
a quadratic. This occurs when FORM is examining a square-root of a 
rational function. Let us suppose that none of the methods that FORM 
has available in this case decide that they are applicable. FORM will 
now attempt a further analysis because such a subexpression usually 
represents a block to a solution. FORM considers two excuses for the 
fact that the methods did not seem to be applicable. Both relate to 
SCHATCHEN' 8 matching capabilities. The first is that the rational func- 
tion inside the square-root was not expanded (e.g., x(l + x)); the second 
that the rational function was not completely rationalized (e.g., x + ~ ) . 
FORM will therefore determine if these two transformations are applicable 
to the rational function. If they are, it will reanalyze the problem to 
determine if its methods are applicable. Thus FORM's analysis enables 
it to localize the difficulties in a problem, and its understanding of 
the rest of SIN allows it to find excuses for certain events and helps 
it to overcome the difficulties in a problem. In some of the cases just 
considered SAINT would have performed the same transformation (only expan- 
sion, though). Yet these transformations would be applied to the whole 
integrand and not to selected portions of it. 
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The third stage of SIN is the place that we reserved for general 
methods of integration. Such methods either search a great deal or 
involve much analysis and machinery. Hence we feel that they should 
be considered as a last resort. The experiment described in Appendix C 
indicates that only two problems required a method in this stage. The 
most interesting method of stage 3 is Edge which is based on the Edge 
heuristic and is discussed in Chapter 5. Edge is a novel integration 
method since it guesses the general form of the integral. Once a guess 
has been made, a "differencing" technique similar to GPS's [ 43 ] is 
applied to obtain the answer. As will be seen in Chapter 5 the guess 
is closely related to the antiderivative of a selected subexpression in 
the integrand. 



CHAPTER 3 

SCHATCHEN - A MATCHING PROGRAM FOR ALGEBRAIC 
EXPRESSIONS 

Introduction 

Our aim in this chapter is to develop a set of requirements 
for a language in which one can describe concisely and precisely 
algorithms for the manipulation of algebraic expressions. Several 
attempts at such languages have been made in the past. We would 
like to distinguish among these attempts two distinct approaches to 
an algebraic manipulation language. One could be called the 
command-oriented language . An example of a command would be "Let 
w be the name of the expression which results from substituting the 
expression named x for that named y in expression named z." It is 
customary to abbreviate this to something like "w = subst(x, y, z)." 

The second approach can be called the pat tern- directed (or 
production) approach. An example of a statement in such a language 
would be "x+x -> 2*x," which means that if the expression currently 
being examined matches (i.e., is of the form) x+x, then it is re- 
placed by the expression 2*x. Such statements will be henceforth 
called rules . A rule is composed of two parts, a pattern-match part 
(antecedent) and a replacement part (consequent). 
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A command-oriented language is desirable for man-machine 
interaction because the human is able to perform the desired pattern 
recognition by himself most of the time (see Martin [37], Engel- 
man [15]). It is also useful in those situations in which the 
algorithms being coded are straight-forward, that is, nothing 
unusual is likely to happen. An example of such a situation is a 
program which solves a system of linear equations with variable 
coefficients (see ALPAK [6])- 

When the algorithms being coded become increasingly complex, 
the pattern recognition requirements of the algebraic manipulation 
language are increased. To meet these requirements, highly command- 
oriented languages, such as FORMAC [5], include some pattern recog- 
nition facilities (e.g., the PART command). However, these facilities 
are woefully inadequate for many purposes (e.g. , simplification, in- 
tegration) and the need for a pattern-directed subset of an al- 
gebraic manipulation language has become clearly established. 

In this chapter we shall be concerned solely with the pattern- 
directed approach. At first, we shall rely principally on the 
reader's intuition and understanding of algebraic expressions. Our 
discussion will become more and more precise as we proceed. 

We shall first examine the requirements of the pattern- 
match. The requirements of the replacement part, which are simpler, 
are examined later. An application to simplification of the SCHATCHEN 
program which fulfills these requirements will then be discussed. The 
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chapter ends with an essay on simplification. 

Below "PLUS", "TIMES" will designate the usual arithmetic 
operations of addition and multiplication. The former will also be 
designated by "+", and the latter by concatenation. "EXPT" will 
represent exponentiation. 

The Pattern-Match 

Let us consider the intuitive pattern for a quadratic in x -- 
namely, pattern Pi: 

2 
(PI) Ax + Bx + C 

All would grant that the expression El satisfies the pattern 
PI with the values for 

(El) 3x 2 + 2x + 5 

A, B, C, being 3, 2, 5, respectively. Such an expression also 
appears to offer no difficulties to a matching program since there 
is a 1 - 1 correspondence between the elements in the expression and 
the elements in the pattern. Thus, a straight- forward left-to-right 
scan should yield the corresponding values for A, B, C and result in 
a match. Consider, however, the expression E2. E2 is also a 
quadratic in x. Yet it fails to have one of the properties that El 
enjoyed. A left-to-right scan of E2 will yield the 
(E2) 3x 2 + 2x 

value 3 for A and 2 for B. However, we will have difficulty in 
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Let us consider how the match might determine that Bx-0 
implies that B=0. In Pi we implicitly introduced the convention that 
constants such as x are represented by lower case Roman letters and 
variables such as A, B, C, are represented by upper case Roman letters. 
Constants must match themselves . The values of variables are deter- 
mined by the pattern-match and depend on the expression. Furthermore, 
our knowledge of multiplication indicates that if a product in- 
volves a factor, then its value is 0. (We shall ignore cases with 
infinite factors.) Thus, if a product is matched with 0, it is re- 
quired for a factor to match . If Bx is matched with 0, then since 
x must match itself, B must match 0, otherwise the match fails. A 
complementary requirement we shall impose is that if a product is 
matched with 1, then each factor must match 1 . This requirement is 
redundant since it follows from our requirement for missing arguments 
in a product. 

In the above we have built into the match an understanding of 
the arithmetic laws involving and 1 in sums and products. Note 

though that the match assumes that the expression has been simplified 

2 
to some extent. Thus, the pattern Ax will not match the expression 

x since the constant expression x is assumed to match only 

itself. 

However, information about 0-1 laws are insufficient as can be 

seen when we consider expression E5: 

(E5) x 
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In some cases such an expression could pass for a quadratic. In 
other cases (for example, in applying the quadratic formula) such 
an expression is not admissible as a quadratic. Note that the 
match as described above will result in the value for A, 1 for B, 
and for C for expression E5. He need to be able to describe to 
the match that the value for A is proscribed. In fact, we would 
like a more general facility allowing one to delimit the range of 
values that the variables in the match may have. We shall require 
that the variable must be allowed to satisfy a predicate . We 
shall indicate such a facility with a slash (/) as in pattern P2. 
In P2 we require A to satisfy the predicate NONZERO: 



(P2) A /NONZERO * + Bx + C 



In examining expression E6 we see that we will need more 
predicates to limit the values of A, B, C, since E6 is certainly 
not a quadratic in x: 



2 
(E$) x + sin(x) x + 1 



Let us consider pattern F3 which takes care of the difficulty 

in E6. 

2 
(P3) A /NONZERO-AND-NUMBER * "^/NUMBER x4 ° /NUMBER 

Pattern P3, however, may be a too restrictive condition. It requires 
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that A, B, C, be numbers. 

For example, F3 will reject expressions E7 and E8 

(E7) x + Jtx 

2 
(E8) x + x + y 

since jt does not appear like a number and since y Is certainly 
not a number. If we wish to accept both E7 and E8, pattern P4 
might be suitable: 

(P4) A /NONZERO-AND-FREBOFX X +B /FREEOFX X+C /FREE0EX 

We shall assume that the predicate FREEOFZ determines whether 
an expression contains an occurrence of x and has the value T (true) 
if it does not contain such an occurrence. 

We thus can see that the predicate facility is both a blessing 
and a headache since it forces one to consider quite carefully what 
it is that he desires to be matched. 

Further complications arise when we consider the expression E9. 
We recognize E9 to be a quadratic. 

(E9) x + x 2 

However, In doing so we made use of the fact that addition was a 
commutative operation. This leads us to require that the match must 
take into account the commutativity of addition and multiplication . 
(Non-commutative addition and multiplication could be represented 
with different operators than PLUS and TIMES.) As it turns out this 
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requirement increases the cost of the match greatly. It is now 
insufficient to perform a single left-to-right scan of the expression. 
We may be forced to traverse the expression several times. We shall 
assume, however, that the pattern is to be scanned once from left-to- 
right. This will allow us to use the values of previously bound 
variables. For example, a pattern for determining whether an ex- 
pression is a perfect square might be written as P5 

(P5) A /NONZERO-AND-FREEOFX X +B /FREEOFX X " fC /FREEOFX - 

AND - (B 2 -4AC - 0) 

since by the time we encounter C, the values for A and B should 
already be known or else the match has already failed. 

The predicate facility is one way in which the pattern can be 
used to direct the match. Below we shall give descriptions of 
other facilities and examples in which they might be used. These 
facilities are made available by the use of modes for the variables 
in the match. The desirability of the first of these modes is indi- 
cated in expression E10. 

(E10) 3x 2 y + 2x + 1 

The difficulty in matching expression E10 is due to the 

2 
occurrence of more than one factor (other than x ) in the terms in- 

2 
volving x . We would really be interested in having the variables A 

2 
and B act as coefficients of x and x, respectively. This means that 
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2 
in the term involving x , the product pf all the other factors is a 

candidate for A. To show this we shall use the indicator COEFFT 

(coefficient in TIMES) as a modifier for A as is shown in P6: 

o 
(* 6 ) A /C0EFFT,N0NZER0-AND-FREE0EX X +B /C0EFFT , FREED FX * 



^/COEFFP.FREEOFX 



In P6 we used the indicator COEFFP (coefficient in PLUS) to modify C. 
This means that C will match the sum of the remaining terms in the 
expressions. The result of matching P6 with E10 is : A=3y, B-2, C=l. 
In expression Ell we see another phenomenon which will necessi- 
tate the addition of a new mode. In Ell 

(Ell) 2x 2 + V2x 2 + 3 

2 
there occur two terms involving x . If we assume that each term in 

the pattern should match exactly one term in the expression, then 

2 
the single term Ax in the pattern will fail to account for the two 

terms in E10. We need a facility for specifying to the match that 

a particular variable in the pattern is to be considered a co- 
efficient in both a product and a sum . This is done in pattern P7 
by using the indicator COEFFPT (coefficient in PLUS and TIMES) to 
modify A and B. 

<? 7 > A /COEFFPT, N0NZER0-AND-FREE0FX X +B /COEFFPT , FREEOFX x4C /C0EFFP,FREE0FX 
With the machinery we have developed we can now match pattern P7 with 
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the expression E12: 

(E12) y 3 + 3jrx 2 y + 6x 2 + 5y + 1 

The result of this match should be A=3rty + 6, B=0, C=y +5y +1. 

In the above examples we were attempting to determine whether 
the expression was a quadratic in x. Suppose we wanted to generalize 
the problem in order to determine whether the expression was a 
quadratic in some atom, but where the atom was not fixed, but may 
itself change. More precisely, we desire a function QUADRATIC of 
two arguments EXP and ARC This function is expected to determine 
whether EXP was a quadratic in ARC P8 can be used as a pattern in 
QUADRATIC. 

(P8) A /COEFFPT,N0NZER0-AND-FREEOFARG ( VAR /EQUALARg) 2 + 

VcOEFFPT , FREEOFARG ( VAR /EQUALARg) + 



B, 



C /COEFFP , FREEOFARG 

In P8 we introduced the predicate FREEOFARG which has the 
obvious related function to FREEOFX in pattern P7 . The predicate 
EQUALARG tests the value that the match assigned to VAR for equality 
to ARC 

Let us now consider the problem of extracting a perfect square 

from a sum. More precisely let us consider the situation in which a 

2 
sum has three terms which are individually of the form A*VAR , B*VAR 

2 
and C, and whose relation is defined by B -4AC=0. This differs from 
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the situation described in pattern P5 in that the expression nay 
now have more than three terms and in that the value of VAR is 
originally unknown and depends on the expression being matched. Our 
first attempt is to describe this situation with P9: 

< p9 > A /H0HZER0-AUD-1TOMBER VAr2+B /NUMBER ^^/HOHBER-AilD- (B 2 -4AC*0) 

""VcOEFFP 

It turns out that pattern P9 does not satisfy our requirements 
because there is some ambiguity regarding VAR. In predicate P8, 
VAR was determined uniquely by the predicate EQUALARG. In the 
current situation no such a priori predicate exists. The first 
value of VAR can be essentially anything. To indicate this we can 
write VAR /TRUE instead of VAR, where TRUE is a predicate which is 
true on any input. However, the second occurrence of VAR in the 
pattern (i.e., in B/numbER var ) is Intended to be fixed. That 
occurrence of VAR must be the same as the previous value attached 
to VAR. To make this point clear, let us consider expression EU : 

(E13) y 2 +2x + 1 + 5z + 2y 

This expression will match pattern P9 with A-l, B-2, C-l, D-5z+2y, 
and with the first value of VAR equal to y and the second equal to x. 
To avoid this situation we could write the second occurrence of VAR 
aa VARl^ E qu AIjVAR . This is a fairly clumsy mechanism (even though a 
similar device was used in P8). What we shall do instead is to 



^^'^P-fcy*'-: 



33 



define a new mode called CONV in which the first occurrence of the 
variable (e.g., VAR) will satisfy the predicate (e.g .. TRUE) and 
the latter occurrences must match the expression matched during the 
first occurrence . We thus arrive at pattern P10. (The CONV mode is 
directly related to the PAV (pattern variable) mode of CONVERT [ 23].) 

(P10) A /NONZERO-AND-NUMBER ( VAR /CONV,TRUe) + B /NUMBER VAR + 

C /NUMBER-AND-(B 2 -4AC^)) ""VcOEFFP 

Pattern P10 will match E13 with A-l, B-2, C-l, D-2x+5z, and VAR-y. 
Let us consider P10 with expression E 14 : 

(E14) y + y 2 + x 2 + 2x + 1 

The first attempt will be to match VAR with y. This attempt will 
fail and the match will fail even though a perfect square exists if 
VAR were to match x. What is required here is a facility for direct- 
ing the match to search for further possibilities. It is assumed, 
of course, that the user of such a facility is aware that it may 
cause a profound increase in the cost of a match. We shall intro- 
duce such a facility with a mode which indicates a loop over the 
expression. Such a facility may be used when there exists a set of 
variables (such as A, B, C) in pattern P10 which are mutually inter- 
related (e.g., B 2 -4AC-0). This facility will direct the match to con- 
tinue making trial guesses for the variables until one set is found 
which is satisfied or until all possibilities have been exhausted. 
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In programming terms the loop facility in the problem of pattern P10 
will ask for a 3-level loop in which all possible values for A, B, C 

(note that VAR is determined along with A) are examined until one set 

2 
is found which satisfies B -4AC=0. The syntax for the loop facility 

is given in pattern Pll : 

( PU ) A /LOOP(A,B,C),NONZERO-AND-NUMBER ( V R /CONV,TRUEj 

B /NUMBER VAR+C /NUMBER-AND-(B 2 -4AC=0) +D /COEFFP 

Although in the above we have concentrated entirely on 
describing patterns for quadratics, our intention has been to 
describe a set of requirements for a language which can handle a 
far richer set of tasks. To indicate the power of the machinery we 

have developed, we shall give below a pattern which tests for the 

2 2 

occurrence of sin B + cos B in a sum. Pattern P12 will match ex- 

2 2 

pression E15 and results A=5cos (y) + 1, B=2x, C=2 , and D=3y+2sin (x) . 

(P12) A /COEFFPT,LOOF(A,C), NONZERO 8 ^ C^ONV.TRUE) + 

2 
C /COEFFPT .NONZERO C ° S + /COEFFP 

2 2 2 2 2 

(E15) 3y + 2sin (x) + 5s in (2x)cos (y) + 2cos (2x) + sin (2x) 

The implicit relationship between A and C in pattern P12 
appears fairly trivial -- that is, both A and C must be nonzero. 
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However, expression EI5 shows that the loop facility helps to get us 

2 
out of the trap of matching B to x in the 2sin (x) term. 

We have so far neglected a discussion of the matching require- 
ments of patterns which include exponentiation. We have let in- 
tuition guide us through the cases where exponentiation did occur 

in the patterns above. As before a constant expression in the pattern 

B 2 B 

of the form A (e.g., sin (x)) must match itself. Otherwise, if A 

is to be matched against the expression 0, we shall assume that it is 

necessary and sufficient for A to match 0. (The difficulty that 

arises if B likewise were to match is ignored.) 

it 
If A is matched against 1, then either B must match or A 

must match 1. Note that this can lead to a difficulty if both A and 

•a 

B are variables, since only one value will be determined. If A is 

E 2 
matched against E^ , then B must match E? and A must match E^ or 

E9 
B must match 1 and A must match Ei 

In pattern P13 we are testing for an expression of the form 

sin (x) cos (x). This pattern will match the expression sin(x) 

and result in the values N»l, M«0. 

,„.,. . N /INTEGER, . M /INTEGER, . 

(P13) sin (x) cos (x) 

Pattern P14 is included here to indicate some of the ambiguity that 
is inherent in patterns. 

a H/THTPrm a .M/ INTEGER 

(P14) ^/NONZERO-AND-FREEOFX X ' IMXBGBR + B /FREE0FXj 
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F14 corresponds to the intuitive pattern (ax -H>) . When P14 is 

2 3 
matched against (x +1) it will yield A-l, B-l, N«£, M-3. When it 

is matched against x it will yield A-l, B-0, N-L, M-6, although 
A-l, B-0, N"2, M-3 serves equally well as a set of solutions. We 
used this pattern to indicate some of the limitations of the match- 
ing program we have been defining. In the case of the expression 
x , we obtain via pattern P14 the implicit relation NM-6. This 
means that we have given the program insufficient information re- 
garding the choice of values for N and M in this case. The match 
cannot be expected to do very well in this instance. 

A second difficulty with pattern P14 which has already been 
mentioned occurs when it is matched against 1. In this case our 
requirements for the match indicate that all that shall result is 
M-0. We could have obtained A-0, B-l if the requirements regarding 
the matching of 1 had been reversed. Neither situation is wholly 
satisfactory. However, it is hard to foresee a compromise solution 
which will be wholly satisfactory. 

The lesson that is learned from pattern P14 is that it is up 
to the user to make his patterns sufficiently restrictive so as not 
to yield ambiguous situations in those cases in which they are likely 
to be applied. 

The impression that is likely to be in the minds of some 
readers is that more machinery is yet to be described. We do not in- 
tend to do this. In some strong sense the design of a good algebraic 
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respect to x Is equivalent to and if the second derivative is 
different from 0. Theoretical results by Richardson (see Appendix B) 
indicate that there will be problems even with such a special purpose 
match which it could not determine correctly in finite time. Special 
purpose devices probably could be designed for each pattern that 
could be written for our match. Some of these would have to be quite 
ingenious in order to be more powerful than our match. These de- 
vices might be necessary in certain situations. However, they run 
counter to our desire for a language in which one can write concise 
ru les . 

We shall have more to say about the pattern match when we dis- 
cuss the existing algebraic manipulation languages below. 

Replacement 

Having discussed the matching part, we shall now describe the 
process by which new expressions may be generated using the results 
of the match. This process we shall call the replacement part of the 
rule. 

Let us consider the intuitive statement of rule Rl' 

2 
(Rl) Ax 2 + Bx + C - Ay 2 + C - |j- 

A successful match of the left-hand-side of Rl should result 
in a dictionary containing the values of A, B and C. This dictionary 
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is then used to generate the right-hand-side expressions by re- 
placing the variable names by the values which were assigned to them 

2 
during the match. If we consider the expression x +2x+l, the match 

should result in A=l, B=2 , C=l and the rule should yield the ex- 

2 2^ 

pression ly +1- r~j ■ Since this expression is unsightly we shall 

require that the replacement step should simplify the expression . 

2 
Thus, Rl would result in the expression y* . (Note that Rl performs 

the operation of completing a square.) 

Suppose we were given rule R2 : 

(R2) cos (nx)-»cos n (x)-(2)cos n ~ (x)sin (x) + (^)cos (x)sin (x) 



R2 computes the first 3 terms in the expansion of cos (nx) in terms 
of cosx and sinx. If we had matched the expression cos (4x) with 
rule Rl, we would result in an expression involving the combina- 
torial terms (,) and (. ) . In order to have an expression amenable 
to further computation ( ) and (,) should be evaluated to yield 6 
and 1, respectively. Thus, we require a facility for evaluating 
selected portions of the expression . With this facility R2 can be 
written as R3 . 



(R3 



) cos(nx)- cos n (x)-EVAL(("))cos (n " 2) (x)sin 2 (x)+EVAL((")) 



(n-4) . 4. . 
cos sin (x) 



!UI. "-jSjH* - 
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The replacement routine will substitute for each atom which 
appears In the right-hand-side, its value in the dictionary if there 
is such a value. If no such value exists, the atom will be replaced 
by itself, that is, it will be quoted. We will require a supple - 
mentary quoting mechanism so that we may use right-hand-sides in 
which names of variables appear which are not replaced. An example 
of a rule using such a facility is R4. DIFF(A,B) is assumed to 
yield the formal derivative of A with respect to B. 

g(y) g(y) 

(R4) f(x) - f(x) EVAL (DIFF(g(y), (QUOTE x))) 

Although for expository purposes we used only intuitively written 
pattern matches in the rules above, it should be clear that in 
practical situations the left-hand-sides of the rules would be re- 
placed by more explicit matching forms. 
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Existing pattern-directed languages 

The requirements given above for a matching and a replacement 
program are satisfied by the SCHATCHEN* and REPLACE routines used 
in SIN. We would like to place these programs in their historical 
context. SCHATCHEN has been most influenced by ELINST (ELementary 
INSTance), a set of routines included in Slagle's SAINT for the 
purpose of matching algebraic expressions to forms. ELINST 
satisfies many of the algebraic properties of SCHATCHEN such as 
variable arguments to PLUS and TIMES, missing operators, and 
commutative operators. It differs in that it does not give the 
user explicit control mechanisms of the scan of the expression. 
ELINST will generate sil, possible sets of values for the 
variable and only then will it apply the side relations to 
determine those which satisfy the pattern. Besides this weakness, 
ELINST suffers most -by being essentially undescribed. I suspect 
that had Slagle described ELINST in 1961, then some of the 
proposals for algebraic manipulation languages which were made 
since 1961 would have had a different character. ELINST had to 
be as general as it is because the problem that Slagle was trying 
to solve required such generality. Furthermore Slagle encountered 
grave problems in fitting his program into the memory (32K) of the 
7094 and thus chose to make use of the economy of calls to ELINST 
in many situations in which it would otherwise have been wiser to 
write special purpose matches. Thus he claimed that one half of 
the time that was spent usefully by SAINT (i*e., excluding 

*match- maker in Yiddish 
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garbage collections) was spent in pattern recognition. 

The features of the algebra-oriented pattern-directed 
languages that were introduced in the past six years (e.g., 

AMBIT ClGi , FORMULA ALGOL ^ , Fenichel's FAMOUS ^ , PANON- 

[8] * 
IB ) appear to have a great deal in common . PLUS and TIMES are 

restricted to at most two arguments. Operators that appear in 

the pattern must explicitly appear in the expression. Sometimes 

also PLUS and TIMES are not recognized as commutative operators. 

All these restrictions mean that the patterns are highly specific 

and that several rules are necessary in order to accomplish a task 

that can intuitively be stated in a single rule. The advantage that 

such matching routines have over a more general one such as SCHATCHEN 

is that each of the rules is quite readable and relatively efficient 

to execute. However the effect of a set of rules which is equivalent 

to a single SCHATCHEN rule is probably harder to guage than the 

SCHATCHEN rule itself. The execution time of a set of rules is also 

probably longer than the execution time of a single SCHATCHEN rule. 

Here is the kind of rule set that would be required in such 

languages in order to recognize a quadratic in x: 



2 
x 

2 
x + bx 

2 . 

(RS) 2 

x + bx + c 

2 
x + x + c 
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*It should be noted that these languages have a greater generality 
than a discussion of their usefulness in matching algebraic 
expressions would indicate. 



In proposing the above twelve rules we are assuming that the 
language provides for commutativity in PLUS and TIMES and for the 
ability for declaring a, b, c to be FREEOFX. In systems in which 
a minus sign is recognized as a distinct operator one might require 
even more rules. Unfortunately the rule set proposed is not as 
powerful as Pattern P7 because each term in the pattern will be 
matched with exactly one term in the expression. It appears that 
one could overcome this restriction only by a recursive or iterative 
application of the rules. In fact, the FAMOUS system relies on the 
fact that the rule set is applied repeatedly to a given expression! 
although in FAMOUS' case the reason for this reliance has a deeper 
philosophical significance owing to Fenichel's strong affirmation 
of the concept of local transformation embodied in J9 -theory. 

In our previous discussion we have emphasized the desirability 
of the implicit arithmetic operators PLUS, TIMES and EXPT in the 
pattern. There are, however, instances where the operator must 

explicitly be present. In the rule below which is used for 

[28] 
rationalizing sums in a recent thesis by Iturriaga , 

(R5) A + B /C - J f* S " 

the "+" operator must be present as well as the "/" operator. It 
is possible to simulate the requirement that these operators must 



i. f i f w« l ij.<. l ji ., y 1 1. ii i i .1 . .. - .-. — ■" M " ™v ."<;»■ ■■;*■ '"I! .. . '"" -■"'■.""", ""■■■■ /™ --i-*r^'-'-."i.->;.?™": 
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be present by requiring that A cannot be and that C cannot match 
1. However such a situation is clumsy at best, and a facility for 
explicit operators should be provided. With such a facility for 
explicit operators (present in the early versions of SCHATCHEN, 
but dropped because of lack of use) , a user of the algebraic mani- 
pulation system will be capable of programming in a wide variety 
of styles* These will range from the fairly rigid and inflexible 
rules of the rule set RS to the type of rule exemplified by pattern 
Pll. 

We shall also mention a slight controversy regarding the number 
of arithmetic operators which should be present in the interna 1 
structure of an algebraic manipulation system. Some people appear 
to believe that a large number of operators including unary minus, 
quotient, and difference is a good idea. Experience has shown, 
however, that such systems, expecially when combined with an 
inflexible pattern-match, require an increase in the user's awareness* 
which tends to downgrade his problem solving ability. The less a 
user must be concerned with what is actually happening, the more 
likely he is to solve hard problems. Of course, if the details 
which are hidden in the system involve exponential growth or the 
like, hiding such details can be disastrous. This is not, however, 



♦"Awareness" is a term used by Weizenbaum to indicate the degree 
of attention to detail which a user is required to maintain in 
a given situation. 
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the situation when arithmetic operators are translated internally 
into only three - PLUS, TIMES, and EXPT. At the input-output level, 
just the opposite effect takes place. Here we wish to let the user 
of the algebraic manipulation system have the flexibility with 
which he feels comfortable. The recent trend in input-output 
of algebraic expressions has been to have this flexibility 



/ M .- DTK 
(see Martin ) 
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Implementation of SCHATCHEN 

SCHATCHEN is currently implemented as a set of LISP programs. 
Several people have suggested that one should embed it in a more 
general language. CONVERT [23 ] seems to be the regnant choice for 
such a language. CONVERT is a general pattern directed language with 
much machinery for the transformation of list structures. In fact, 
two modes in CONVERT which were introduced in the past year (i.e., 
BUV - bucket variable - and UNO - unordered search) were introduced 
by Guzman and Mcintosh, the designers of CONVERT, with the intention 
of such embedding. Interestingly enough, the BUV mode is sufficiently 
general that it has replaced other CONVERT modes. The advantage of 
such an embedding is that it would allow the user to employ other 
facilities of CONVERT. These facilities are quite impressive. The 
major disadvantages are due to inefficiencies in a straight-forward 
implementation. In order to discuss these inefficiencies we will have 
to describe the manner in which SCHATCHEN performs a scan. 

Suppose we have a pattern of form I, 

(I) PI + P2 + P3 

and an expression of form II . 

(II) El + E2 + E3 + E4 

The scan proceeds by attempting to match PI with El. If that fails 
an attempt will be made with PI and E2 , then PI with E3. If PI 
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matches E3, then E3 will be deleted from II, and the scan proceeds 
by matching P2 + P3 with El + E2 + E4. This deletion is done by 
using the RPLACD subroutine of LISP. In general this is an unsafe 
method. It means that any prior references to I£ will refer to the 
expression with E3 deleted, which can be disastrous. However, great 
care is used inside SCHATCHEN to maintain pointers to the excised 
expression and to restore it to its original shape once the match 
has been performed. Furthermore, all the pointers that a pattern 
can have to intermediate results are carefully copied. The alter- 
native to the deletion approach is to completely reproduce expression 
II without E3. The alternative is quite costly especially when the 
number of failures in identification is taken into account. Suppose 
patterns PI and P2 are related via a loop, then PI may have to be 
rematched after an original successful match. More likely is the 
case that PI is matched with E3, but P2 finds no match at all and 
thus the match fails. The method of reproducing an expression en- 
tirely following a match of a subpattern with a subexpression is 
thus seen to be quite expensive. A normal string transformation 
language or even a list transformation language such as CONVERT 
(except for the UNO mode) does not face this difficulty because the 
scan along both the expression and the pattern is left-to-right. Thus, 
if Pi matches E3, P2 can only match subexpressions to the right of S3, 
(i.e., E4) . When one introduces commutativity into the picture, the 
situation becomes more complicated. Thus, in our example, after Pi 
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matches S3, we must start F2 with El, P2 with E2, F2 with E4. It 
is the commutativity requirement which necessitates the rescan of 
the expression. 

An alternative to the SCHATCHEN scan is to scan left-to-right 
along the pattern with each subexpression. Thus, if El does not 
match Pi, then a match is attempted between El and P2. With this 
scan one is forced to keep intermediate results and perform complex 
processing at the end of the scan in order to determine whether the 
variables of the match satisfy their predicates and are properly 
related. This alternative was rejected as being too unwieldy. 

Another aspect of the implementation of SCHATCHEN turns out 
to have important semantic properties. Intermediate results in 
SCHATCHEN are stored in a special list called ANS. On this list we 
also find the excision information mentioned above as well as markers 
used to indicate levels of scope of variable bindings. A successful 
technique in using SCHATCHEN is to use predicates which are them- 
selves calls to SCHATCHEN and which introduce new variable bindings 
to the ANS list. Thus, a variable A may be required to be of the 
form BC, where B and C must match certain patterns. By calling 
SCHATCHEN directly as the predicate for A, then the values of B and 
C would be lost. However, if one calls a routine exactly one level 
below SCHATCHEN (namely Ml), then one can preserve the values of B 
and C in the final result as well as obtain the full power of SCHATCHEN 
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The fact that ANS is available for all to use during the match can be 
dangerous since the predicates could accidentally destroy a great 
deal of information. Nonetheless the advantage of such an implemen- 
tation device far overrides this difficulty. The ANS mechanism 
represents another difference between CONVERT and SCHATCHEN. CONVERT 
does not allow direct access to its dictionary. Many of the modes in 
CONVERT, however, perform some change to this dictionary. In 
this regard it should be noted that FLIP [62], another pattern- 
directed language which is similar to CONVERT in emphasizing the 
transformation of lists, concentrates on the control of the scan by 
the user. FLIP, however, lacks much of the recursive machinery of 
CONVERT and thus appears to be less likely a candidate for a language 
in which to embed SCHATCHEN. 

A Partial Description of SCHATCHEN 

SCHATCHEN has two arguments, an expression and a pattern. 
These will be denoted e and p, respectively. Variables in the 
pattern are written in the form (VAR name pred argl . . . argn) 
where 

name « name of variable 

pred - predicate associated with the variable 

argi are arguments 2 through (n+1) of pred. 
The first argument of pred is assumed to be the expression that the 

match assigns to the variable. 
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If a variable has a mode, the mode is written in prefix form. 
Thus, A /cOEFFPT NUMBER X becomes (COEFFPT (VAR A NUMBER) x) , and 
A /COEFFP EJUAL 5 becomes (COEFFP (VARA EQUAL 5)). (This pattern 
tests for the equality of the variable A with 5.) 
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SCHATCHEN ( e p ) 



If e equals p, the match succeeds. 

If p Is of the form (VAR name pred argl, .... argn), 

then pred (e argl arg2, ..., argn) Is evaluated. 

(Note that argl, ..., argn are replaced using ANS, 
SCHATCHKN's internal push down list. If they contain 
names of variables on ANS the most recent corresponding 
values are used. Otherwise, EVAL (the LISP interpreter) 
will obtain the value of the variables). If the value of 
pred is TRUE, the match succeeds and ((name • e)) is 
appended to ANS. Otherwise the match fails. 

If p is of the form (op pi ... pn) and op is not PLUS, 
TIMES or EXPT, then e must be of the form (op' el . . . en) 
and each pi must match ei and op must match op'. Other- 
wise the match fails. 

If the pattern is of the form (EXPT pi p2), then 1) e is 
(EXPT el e2) and pi matches el and p2 matches e2 

or 2) e is and pi matches 

or 3) e is 1 and a) p2 matches or b) pi matches 1 

or 4) p2 matches 1 and pi matches e 

» 

Otherwise the match fails. 
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If Che pattern is of the form (op pi p2, ... pn) and 
op - PLUS or TIMES, then if e is not of the form 
(op el, ..., em), e is transformed to (op e). In this 
case an attempt is made to match each pi with some ej. The 
scan starts with pi matched with el. If that fails pi is 
matched with e2. If pi matches some ej, ej is deleted 
(using RPLACD) from e and the scan continues with pi+1 
matched with the first subexpression remaining in e. If 
for some pi no ej can be found to match it, then pi is 
matched with if op - PLUS of 1 if op - TIMES. If that 
also fails, the match fails. If all the pi have been 
matched, but some ej have not, the match likewise fails. 
Exceptions to the treatment above are due to modes. If op "PLUS, 
and pi is of the form (COEFFPT (VAR name pred argl, ..., argn) pi,..., 
pk), then the remaining expression is traversed with the pattern 
(COEFFT (VAR name pred argl, ..., argn)pl, ..., pk) . Each sub- 
expression that is thus matched is deleted from the expression. The 
simplified sum of the results of the scan becomes the value of the 
variable and is appended to ANS. If no subexpression could thus be 
matched, then pred(0, argl, ..., argn) is attempted. If this too fails, 
the match fails. 

If op = PLUS and pn is of the form (COEFFP (VAR name pred argl, . . . ,argn)) 
then if e is currently of the form (PLUS ei, ..., en), then pred 
(e argl, ..., argn) is evaluated. If the value of pred is true 
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((name. e)) is appended to ANS. If no subexpressions remain in e 
then pred (0 argl, ..., argn) is attempted. If it succeeds, 
((name. 0)) is appended to ANS. Else the match fails. 

If op = PLUS and pi is of the form 

(COEFFT (VAR name pred argl, ..., argn)pl, ..., pk) , then 

(TIMES pi, ..., pk) is matched with e. If the match succeeds and 

e remains of the form (TIMES el, ..., en) then pred (e argl. .., argn) 

is attempted. If it fails, the match fails. If no subexpressions 

remained in e, then pred(l argl, ..., argn) is attempted. If this 

succeeds (( name. 1) is appended to ANS. Else the match fails. 

All other matches fail. 
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An Application of SCHATCHEN 

SCHVUOS - SCHATCHEN' S VERSION OF AN UNASSUMING 
OPERATIONAL SIMPLIFIER 

Owing to space considerations of the 7094, SIN required a 
small but powerful simplification program. Such a program, 
called SCHVUOS, was written and it gained both its power and small 
size by capitalizing on SCHATCHEN's matching capability. SAINT's 
simplifier was a LAP (the machine- language assembler for LISP) 
coded subroutine written as a Master's thesis by Goldberg in 
1959 [21]. 

SCHVUOS does not assume a standard (canonical) form of an 
expression. This means that it will be slow when the expressions 
to be simplified are large. In integration, however, it is rare to 
encounter large expressions. The speed gained by a canonical order 
can be seen in the following example. Suppose, two simplified 
expressions are to be added. If the expressions are to be canon- 
ically ordered, then the addition process is basically a merge of 
the expressions witli a simplification occuring if two terms are 
identical except for a constant factor. If, however, the express- 
ions are not ordered then we generally require a two stage process. 
Given a term in the second expression we must determine if there 
exists a term in the first expression which is identical to it ex- 
cept for a constant factor. This may require a complete traversal 

along the first expression. If the number of terms in each of the 

2 
two expressions is n, this process takes on the order of n term- to- 
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term matching steps. The canonical order scheme requires only on 
the order of n steps. However, some time must be spent in deter- 
mining the canonical description and keeping its value around. 
Furthermore, the routines that generate the canonical order are 
usually very space consuming. Thus, the use of a canonical order 
is only worthwhile if the expressions are to be heavily manipu- 
lated. 

As has been implied in the above, much of the program effort 
and execution time in a standard simplification program is spent 
in collecting terms in sums. Related effort is spent in collecting 
exponents in products. In SCHVUOS the collection of terms in a 
sum is handled by calling SCHATCHEN and asking it to determine the 
coefficient of the first term in the sum. 

Suppose we had the expression E18, 

(E18) 2x + 3x 2 y + z + x + yx 2 

then SCHVUOS will strip the first term of the sum of its coefficient 
and generate the pattern P15: 

(P15) A /COEFFPT, NUMBER* + B /COEFFP 

2 2 
SCHATCHEN will yield A=3, B=3x y+z+yx . Next the pattern P16 is 

generated on the expression B. Now SCHATCHEN will result in A-4, 

B«z. 

2 
(P16) A /COEFFPT,NUMBER X y + B /COEFFP 
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2 2 
Note that x y and yx are recognized as equivalent. Thus, the 

simplified sum is E19 

(E19) 3x + 4x 2 y + z 

The operation of collecting exponents in a product is handled 
s imilar ly . 

The basic simplification program requires only about two pages 
of LISP code in contrast to a typical LISP simplification program 
(such as Korsvold's[ 33 ]) which requires about 20 pages of LISP 
code and has the same power, for our purposes, as does SCHVUOS . 

SCHVUOS contains some unusual simplification rules because of 
the integration environment in which it operates. Thus, arcsin(sin x) 

simplifies to x and sin(arccos x) becomes /1-x . Moreover, 

2 
1+2 log y + log z becomes y ze. (This transformation is also 

handled by a call to SCHATCHEN.) 

The simplification of an expression is done recursively. Each 
operator (e.g., PLUS) first simplifies all its arguments. The 
exception is TIMES which results in if any of its arguments is 0. 

It is possible to achieve an economy if expressions which have 
been simplified in the past are not simplified redundantly. This 
has led to the AUTSIM-bit in FORMAC [63] and to a similar device in 
Martin's simplification program. In SCHVUOS one can sometimes achieve 
this effect by setting a flag which means that the arguments of the 
top level operator, PLUS, say, are already simplified although their 
sum, say, need not be simplified. This is done in the differen- 
tiation program used in SIN. 
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Attitudes Toward Simplification 

There seems to be a wide range of attitudes of people in the 
field of algebraic manipulation regarding the role that an alge- 
braic manipulation system should play in simplification. One view, 
let me call it the conservative view (held by Fenichel, for example 
maintains that the system should not simplify expressions until 
specifically told to do so. In this point of view there is to be n 
fixed system's simplifier and no fixed canonical order of expressio 
The conservative view negates the view of those whom we shall call 
the liberals (exemplified by the FORMAC design) who believe in a 
canonical order, in a fixed simplifier and in implicit simplifi- 
cation. One might even define a third viewpoint, a radical one, in 
which the system will represent expressions internally in a form 
quite different from their external form. Rational function progra 
(ALPAK [6], PM[12], and MATHLAB's rational function package [36]) 
adopt this approach. A radical system is prone to use the distri- 
butive law indiscriminantly and to transform trigonometric function 
into their exponential form in order to take advantage of the power 
ful simplification algorithms which are then available. 

Two considerations should guide one in designing an approach 
to simplification within a given system. The first is the general- 
ity of the system, that is the range of problems which could be 
reasonably solved by it. The second is the efficiency of the syst€ 
in the solution of its problem. It appears to be an axiom that the 
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While in the above examples one can reasonably hope to trans- 
form one expression into another, this is not true of the example 
below. This example is intended to show that even the most obvious 
simplification rules can be harmful in some situations. Suppose 
a user generates three terms of an infinite series. We shall 

assume that he is attempting to obtain a general term. Suppose that 

2 
the first term is 1, the second 2x+l and the third 3x +3x+l. I 

2 2 
maintain that if these terms were presented as x+l-x, x +2x+l-x , 

3 2 3 
x +3x +3x+l-x , then the result would contain more information than 

before, for it would lead to a reasonable hypothesis that the general 

term is (x+1) -x . Yet one of the first rules of any existing 

simplifier is x-x-*0. 

One argument that can be given against the radical approach 
is given in the problem of integrating (x+1) . If one expands 
this expression, as a rational function package is likely to do, 
then one will use a great deal of space and time and result in an 
unsightly expression. However, the expression can be easily inte- 
grated to yield YUUl — ( x+1 ) b y leaving it in its original 
form. Recent information indicates that future ALPAK systems will 
leave expressions in their factored form in order to resolve 
difficulties created by problems such as this. 

What then is the attitude that one should adopt toward simpli- 
fications? A reasonable one would be to use each of these attitudes 
where they are most useful. In cases where there is a need for a 
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great deal of rational function manipulation and relatively little 
pattern recognition one should adopt a radical attitude. When the 
problem is not easily framed as a rational function problem or 
where the computational effort is light, but where the pattern 
recognition is not crucial, then you adopt a liberal attitude. 
Finally, when a standard simplifier will lead you into difficulty 
you just must restrict its effect. 

Separating the radical attitude within a program from the 
liberal one is usually easy — there is a separate program to 
handle rational functions. Between the liberal and conservative 
modes there are too many intermediate steps. Here what appears 
to be required is a black-box simplifier with many inputs or in- 
dicators. With these Inputs one could control the effect of the 
simplifier. It would be interesting to see if one could formulate 
a language in which a program (or a user) could communicate with 
the simplifier. For example, it could check certain indicators 
before attempting any given simplification. The cost for such 
checking could be quite minimal. 

An example of the use of such a simplifier is represented as 
follows: A common simplification rule is (ab) m -• aTb . However, 
in general this rule is inaccurate (e.g., when a«-l, b«-l, m»%, the 
left-hand-side yields I, the right-hand- side, -1, assuming a 3tandard 
interpretation of the square root). If one suspects that this rule 
will lead to difficulty then one can leave a test condition in the 
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indicator for this rule which will weed out those cases in which 
the result is erroneous. 



CHAPTER 4 
SIN - THE SYMBOLIC INTEGRATOR 



Introduction 

In this chapter we describe the operation of SIN. At first SIN's 
flow of control is analyzed. Then each of the methods used is described 
in detail. Finally, the performance of SIN on two examples is shown. 
Throughout this chapter the contrast between SIN's and SAINT' s approach 
and methods will be made clear. 

Flow of Control and Subproblems in SIN and SAINT 

A problem given to SIN may be said to pass through the three stages 
of Figure 1. 



Stage 1 



Problem is 
simple problem? 



T 

No 



Yes 



Return integral 



Stage 2 



Problem can be 
transformed or 
solved by spe- 
cial methods? 



T 

No 



Stage 3 



Yes 



Problem can be 
solved by more 
general methods? 

No 



Return notice of failure 

Figure 1 



Yes 



Either 
1. 



Apply SIN to a trans- 
formed problem and 
return value of SIN 



or 



Solve problem using 
internal mechanisms and 
return result as value. 



Return integral 



The 3 Stages of SIN 
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As figure 1 indicates, the first stage solves simple integration 
problems. In the second stage, we determine whether one of about ten 
specialized- methods is applicable to the problem. This determination is 
made by a routine called FORM and is quite fast. If a method is found 
to be applicable the problem will be either transformed and SIN will be 
asked to integrate the transformed problem, or the problem will be inte- 
grated using techniques internal to the methods. If no method is found 
which is applicable, a more general method will be called in stage 3 in 
order to solve the problem. In this chapter we shall describe a third 
stage consisting of a simple Integration-by-parts routine. In Chapter 
5 we shall describe the Edge heuristic which we expect will be the basis 
of methods used in this stage in the future. 

Since most problems are expected to be solved by stages 1 and 2, 
we shall describe the organization of these stages here. The control 
of the methods used in stage 3 is specific to these methods and will 
be described separately. 

We note that the methods of stage 2 can call SIN to solve sub- 
problems. When this occurs the flow of control and subproblems is given 
by Figure 2. 



5ubprubleml jSolirfion 



5ubprobled tSdufcn 

® 

5ubprobleJ [Solution 




Figure 2 - Usual Flow of 
Control and Subproblems 
in SIN 



Figure 3 - Flow of Control 
and Subproblems in SIN 
When Problem is a Sum of 
Three Terms 
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If a subproblem is a sum, then each term in the sum will be inte- 
grated separately, and the flow is given by Figure 3. 

It should be noted that if a method in stage 2 can transform a 
problem, the problem is not passed to another method in stage 2 or stage 
3, even though the transformed problem cannot be integrated by SIN. For 

example , 

l jr i sin v x 

Jsin(e )dx is transformed to J — ^ dy after substituting y-e 

in stage 2. | ' y dy cannot be integrated by SIN. Thus, SIN concludes 

that Jsin(e X )dx is not integrable by it and will not pass it to stage 3. 

In strictly enforcing such a decision we are depending upon the 
methods to employ tight progress requirements. If the progress require- 
ments are made too tight, then few problems would be integrated by the 
methods of SIN's second stage. If, however, they are made too loose, 
then the methods of stage 2 would verify the hypothesis that they are 
applicable in problems in which they, in fact, are not appropriate, and 
thus SIN would fail to solve these problems. The experiments with SIN 
which are described in Appendices C, D, and E indicate the degree to 
which we succeeded in finding good progress requirements. We wish to 
point out that once such a discipline is successfully imposed on the 
methods, one is in a position to relax the requirement against backtracking, 
and thereby obtain somewhat greater power. We have not yet done so in 
SIN's second stage. 

SAINT, in contrast to SIN's stages 1 and 2, will allow a problem to 
generate more than one subproblem. However, only one of the subproblems 
generated from any given problem must be solved in order to integrate the 
given problem. In general, the subproblems generated by SAINT during the 
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^1 



course of solution will form a tree structure. Figure 4 is a simplified 
description of the flow of control and subproblems in SAINT. 



No 



Loop 



dubpictiem "free 



Ay subproblems left ? 
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applicable fo subprobtem ? 
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info subprobtem free. 

/a affinal problem solved ? 



Return -Atswct 




Figure 4 - Simplified flow of 
control (single arrow) and sub- 
problems (double arrow) in SAINT 



If a problem in SAINT generates more than one subproblem, the node 
in the tree corresponding to it is considered to be an OR node. Thus, 
only one of the subproblems must be solved. If the problem is a sum, 
a similar complication to the one in SIN is made. The node generated 
for such a problem is called an AND node. Each of the terms in the 
sum becomes a subproblem, and must be integrated. AND nodes are indi- 
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cated by an arc across the branches from that node. Thus, in general, 
a goal tree in SAINT has the form of Figure 5. 




Figure 5 - A Subproblem Tree in 
SAINT when sums are present among 
the subproblems 



All subproblems in SAINT are given to IMSLN. This includes the 
original problem and this fact is not shown in Figure 4. IMSLN thus 
acts like SIN's first stage. IMSLN has its own methods of solution. 
If it fails to solve the subproblem or some simple transformation of it , 
the subproblem will be put on the subproblem tree. 

The routine LOOT (see Figure 4) has access to a list of subproblems 
to be tried called PLH. This list is ordered so that the first member 
of the list represents a subproblem which has the lowest depth of nested 
operators (e.g., PLUS, TIMES, COS) in the internal representation of the 
problem. LOOP will select the first subproblem on the list. It will 
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then ask each of the methods of SAINT called the heuristic t rans f o mat ions 
by Slagle to determine if they can transform the subproblem. These methods 
will be guided by information about the subproblem called the character of 
the subproblem. The character contains information such as whether the 
subproblem represents a rational function, an elementary function of ex- 
ponentials or trigonemetric functions, etc. This information is used to 
limit the number of heuristic transformations applicable to a problem. Yet 
even with the use of the character mechanism as many as 11 out of the 17 
heuristic transformations may be applied to a single subproblem. 

The flow of control and information in SIN is called hierarchical . 
In a hierarchical organization, subproblems which are communicated between 
one routine and a second are private to these routines and are not known 
to the rest of the program. SAINT 1 s organization can be called data base 
oriented . In such an organization the' goal is to transform the data base 
(i.e., the goal tree in SAINT) to a desired state. In SAINT the desired 
state is a tree which has a path from the top node (the original problem) 
to a bottom node in which each node represents a solved problem. In a 
data base oriented organization control is relinquished to routines which 
manipulate the data base. In SAINT, all the heuristic transformations 
relinquish control to the IHSLN program. 

SAINT's data base oriented approach allows and, in fact, may be said 
to encourage the program to backtrack, that is to leave one path of the 
tree and start on another. SIN's approach is to discourage backtracks 
at the first two stages. Backtracking is allowed in stage 3. However, 
in stage 3 backtracking is only of a limited nature. 
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Conventions 

In describing SIN we shall use the usual convention that the 
variable of integration is x. SIN is actually a function of two argu- 
ments. The first is the expression to be integrated and the second is 
the variable of integration. 

Below when we use the phrase "is a constant" we shall mean that 

the expression contains no occurrence of the variable of integration. 

2 2 
Ihu8> sin x + cos x is not a constant when x is the variable of inte- 
gration. 

We shall not concern ourselves here with difficulties which may 
arise due to the unsolvability of the constant or matching problem for 
the elementary functions. For a discussion of these difficulties see 
Appendix B. 

By the elementary expressions of x we mean the set of expressions 
composed of 

1) constants, 2) x, 3) trigonometric functions of x (e.g., sin(x), 
cos(x)), 4) logarithmic and arctrigonometric functions of x (e.g., 
log x, arcsin x), and closed under the operations of addition, multi- 
plication, exponentiation, and substitution. 

By an elementary expression in f/x) (abbreviated elem(f(x)), we 

mean an expression obtained in the manner above, but where f(x) replaces 

x 2e x 2x 
x in the definition. Thus, for example, (e + l)e + e is an elemen- 



X X 

tary expression of e . The expression xe , on the other hand, is an 
elementary expression of x, but not of e . 

By a problem inteerable in finite terms we mean a problem whose 
integral is representable by an elementary expression. 
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First Stage of SIN 

The first stage of SIN uses the following three methods: 
Method I If the integrand is a sum, each term is integrated separately 

by calling SIN iteratively and the results are added. 
Method II If the integrand is of the form 

[£u,(x)] , where n is a small positive integer, expand the 
expression and apply Method I. 
Method III If the Derivative-divides routine is applicable, return its 
results. 
The first two transformations are made so that the rest of the 
program can assume that the integrand is a product (though possibly a 
trivial product as in x or in e ) . The third method in this stage is 
the method which has led us to call this stage the stage that solves 
simple problems. 

We shall now describe these methods in some detail . 
I) Method I is an oft used method in practice. Using this method 
one avoids the difficulty of integrating dissimilar expressions such as 
sin x + e . Integral tables, it will be noted, shun entries which are 

sums. However, this is not a safe rule to follow, in general. For 

f x 2 2 x 2 
example, let us consider J(e + 2x e )dx. Neither of the terms in 

this sum is completely integrable in terms of elementary functions. 

However, the sum is the derivative of xe . Hence, breaking up the terms 

in the sum and integrating them separately can disguise the integrability 

of the sum. This difficulty was known throughout the course of this re- 
ft 
search, and a heuristic for overcoming it in some cases was designed. 



The heuristic that has been considered is of the following nature. 
Suppose we have a product of terms of the form f(x)g(x)h(x). The deri- 
vative is frequently of the form f ' (x)g(x)h(x)+f (x)g' (x)h(x)+f (x)g(x)h (x), 

Thus if one finds an integrand which is a sum such that two terms in the 
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However, no extension to this method has as yet been implemented. 
Slagle considered this method to be sufficiently safe so that he 
invariably followed it also. 
Example 

J (sin x + e X )dx « J sin x dx + Je X dx 



II) The reason for method II can be seen by considering Che problem 

x 2 

e ) dx. SIN has no machinery which deals with this problem in its 

12 x 2x 
present form. However, if the problem is given as J (x + 2xe + e )dx, 



J(x f ^ 2 



then the problem is easily integrated. 
Example 

J (x + e x ) 2 dx = J(x 2 + 2xe x + e 2x )dx 

III) The Derivative-divides method is the heart of this stage in SIN. 
As we shall see many problems are integrated by it quite quickly. The 
inclusion of this method at this place in the program has an important 
methodological basis. It is presumed that in many computer problem 
solving systems there are methods of solution which solve most commonly 
occurring problems relatively quickly. If these methods are employed 
first by a problem solving system then many problems will be dispensed 
with in short order. Thus, the problem solving system will be able to 
afford to utilize expensive machinery in its later stages. 

The Derivative-divides routine checks to see if the problem is of 
the form: 



sum are related by having two factors in each of the forms f'g and fg' , 
respectively, and with the rest of the factors identical, then one can 
guess the original product easily. 
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Jc op(u(x))u'(x)dx, 
where c is a constant, u(x) is an elementary expression in x, u'(x) is 
its derivative, and op is an elementary operator. Op may be one of the 
following operators : a) identity b) sin c) cos d) tan e) cot f ) sec 
g) esc h) arsin i) artan j) arsec k) log. Three more possibilities 
for op_ involve the exponentiation operation. These presume that the ex- 
ponential function has only one nonconstant argument. Thus, we get the 
cases 1) u(x) m) u(x) , d 3* 1 , n) d * , where d is a constant. The 
final case is when the integrand is a constant and then u(x) is trivial. 
In that case the integral is simply ex. 

The method of solution, once the problem has been determined to 

posses the form above, is to look up op in a table and substitute u(x) 

* 
for each occurrence of x in the expression given in the table. In 

other words, the method performs an implicit substitution y = u(x), and 

obtains the integral Jc op(y)dy by a table look up. 

Using this method the following examples can be integrated. 

r 1 2 

1) Jsin x cos x dx = rsin x, op = identity, u(x) = sin(x) , u 1 (x) = cos(x), 

c - 1 

o\ I x j 1 x j u ( x ) / \ 2 1/ v » JL 

2) Jxe dx = -e , op = d ' , u(x) = x , u'(x) = 2x, c = - 



3) 



Jx/1 + x z dx = -|(1 + x 2 ) 3/2 , op = u(x) d , u(x) = 1 + x 2 , u'(x) = 2x, 

1 
c =" 

Jr"+"e* dx = log(l + e X ), op = u(x) , u(x) = 1 + e X , u'(x) = e X 
c = 1 



* 



See Appendix A for a description of integral table look-up methods. 
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„. f 3/2. 2 5/2 . ,d , v ., v 

5) Jx dx - -pc , op - u(x) , u(x) - x, u'(x) - 1, c - 1 

A few more examples will indicate certain aspects of this method. 

6) Jcos(2x + 3)dx - -sin(2x + 3), op - cos, u(x) - 2x + 3, u'(jc) - 2, 

1 
C "2 

The Derivative -divides method performs an Implicit linear substi- 
tution in this case. SAINT would have performed an explicit linear 
substitution and would have required two calls to IMSUi to solve the 
problem. 

7) J2yze 2x dx = yze 2x , op -d U(x) , u(x) - 2x, u'(x) - 2, c - yz 

This method handles constants easily. Constants can be generated 
or can be present in the integrand. SAINT would have removed the con- 
stants explicitly. 

8) Jcos 2 (e X )sin(e X )e x dx - -^cos 3 (e X ), op - u(x) d , u(x) - cos(e x ) ) 
c - -1 

This example demonstrates that the integral may be fairly complex 
and the method will still apply. 

One of the experiments which was made with SIN was to attempt the 
86 problems attempted by SAINT (see Appendix C). Interestingly enough* 
this method of Derivative-divides was able to solve fully 45 out of 86 
problems. The average time on the 7094 was 0.6 seconds. 

It is hoped that the above examples convincingly demonstrate the 
usefulness of this method at an early stage in an integration program. 
The method is to be recommended for those who desire an integration 
capability, but who are unable or unwilling to avail themselves of a 
more general program. 

As was mentioned earlier, SAINT 1 s IMSIH routine performs some 
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functions which are similar to SIN's first stage. ZMSIN employs a 
table similar to that in the Derivative-divides routine but somewhat 
larger. It also performs eight transformations called algorithmic 
transformations by Slagle. These transformations are attempted one at 
a time. If one of them is successful the transformed problem is used 
and the original problem is not considered again. Two of these trans- 
formations are the same as method I and II in this stage of SIN. The 
others factor a constant or a negation operator from the integral; 
employ half angle identities; make a linear substitution; and perform 
certain simplifications on the integrand. As has been pointed out 
above , IMSUi also tends to the tree of subproblems and can determine 
if the original problem has been solved. IMSIH doesn't actually solve 
many problems so much as it is able to transform a great number of 
problems into a form which is more easily solved by the rest of SAINT. 
It would appear that SIN's Derivative-divides method solves more problems 
immediately than does IMSLN. SAINT' 8 Derivative-divides heuristic trans- 
formation, which is quite powerful, is not applied to a problem until 
much later in the course of the solution. 

The Second Stage of SIN 

If a problem fails to be solved by SIN's first stage, then it is 
determined whether one of eleven additional methods is applicable to 
it. In order to determine which method is to be applied clues are ob- 
tained from the expression. We have called the technique by which these 
clues are used hypothesis formation (see Chapter 2) . The routine that 
obtains these clues and conducts the formation of an hypothesis is called 
FORM. Associated with most of the methods are patterns in SCHATCHEN 
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which serve to differentiate the problems which are solvable by each 
method from those solvable by other methods. It turns out that few 
problems have more than one method applicable to them. In the cases 
where a conflict does exist (e.g., in solving problems with algebraic 
integrands) the actual method chosen appears to have little effect on 
the cost of obtaining a solution. 

In this stage of SIN, a single method (Method 6) handles problems 
which involve trigonometric expressions. When FORM sees a subexpres- 
sion of an integrand which is a trigonometric function of a linear 
argument in the variable of integration, this subexpression will act 
as a clue, and FORM will call Method 6 to validate the hypothesis that 
a substitution can be made for the trigonometric functions. If Method 6 
decides that such a substitution is not applicable (e.g., J sin x e dx) , 
then it will return the value NIL (FALSE). In such a case, FORM might 
entertain another hypothesis but since there are none for trigonometric 
functions, FORM will also return the value NIL. If Method 6 finds that 
a transformation is applicable, it will hand SIN the transformed pro- 
blem. The value of SIN, with a proper substitution to account for the 
transformation that was made will be returned as the value of Method 6 
and of FORM. 

Examples of problems integrated by this stage of SIN: 
(It is probable that none of these could be integrated by SAINT.) 



1X IV A* + B^sinZx 



sin x 



2) J(l + 2x 2 )e X dx 
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p 2x 

3) J 7^^ dx 



Jx /x + 



4) Jx /x + 1 dx 



a f 1/2, . ,,5/2, 
5) Jx (x + 1) dx 



Ij^T 



6) J^t dx 

Below we describe each of the methods used in this stage. Each 
description contains the clue which FORM uses to determine whether the 
method might be applicable. A more extended description of the manner 
in which FORM operates will then follow. 

Method 1) Elementary function of exponentials . 

This method is applicable whenever the integrand has the form of 

bx i +c 1 
an elementary function of a. , where the a. > b. , and c. are con- 
stants . 

Clue - a subexpression of form a ; a, b, c are constants. 

Examples - 
J 2 + 3<* k dx becomes J 2 + 3 2 dx » y = e X 



3y 
Ja + Be* x dx becomes J A + Y By 4 -iy, y = e 



2x 



J i + e x dx becomes J^ ® _ dy, y = e X and e X = ee X 



T,^ x f log e 10 

J 10 e dx becomes Jy dy, y = e 



10 

x 



. .,_ , ,. .,.,,.»*_ — r - 



76 



bx +c ± (b i x+c 1 )log a 

Method - a. is transformed into a. al in order 

to convert all bases to a common base a 1 . Here a is the first base 

encountered in the integrand. 

a" where c + is converted to a^ . This facilitates the 

transformation to be made . 

The substitution y ■ a X is made. Thus, each a 1 is replaced by 

b 
y and the resulting expression is divided by y log e al. 

Notes - What is controversial about this method is that in converts all 

bases to a single base which in not necessarily e. This may lead to 

the introduction of unnecessarily clumsy constants (e.g., log^3). 

SAINT's method in this case was somewhat different. SAINT did 

not handle different bases, nor all cases where constants (I.e., c^) 

were present in the exponent. It did, though, find the greatest common 

kx 

divisor of the b. , k, say, and made the substitution y ■ a. . In SIN 

this will be handled by algorithm 2 which will make the substitution 

k x 

z « y after y ■ a- is made by the current method. The method that per- 

forms the substitution z - y was not present in SAINT although it was 
suggested as an extension 

Method 2) Substitution for an integral power . 

This method is applicable whenever the integrand is of the form 
x Elem(x 1 ) , where c, k. are integers and where 
k - gcd({c + 1, k^ k 2> . . .}), k + 1 

Clue - Instead of obtaining a clue which determines whether this 
transformation is applicable, FORM obtains a clue which determines 
whether this transformation is not possible. FORM will note that this 
transformation is not applicable when it sees a subexpression of the 



77 



3H~fox 
form e or sin(x) . If none of the other methods is applicable, and 

no such clue has been found, this transformation will be called. 

Examples - 

I* 3 2 fl 2 

Jx sin(x )dx becomes J-ry sin y dy, y = x 



7 p 

\~7^ dx becomes 1 7- — r^ dy. y = x 

Jx 12 +1 4 y 3 + 1 



k 
Method - Substitute y = x 

Notes - This method was suggested but not implemented by Slagle 

who embedded it in a larger method which was implemented in SIN in two 

separate methods (2 and 3) . 

This method is currently restricted to integer exponents. It 

should be extended to handle exponents such as 3a, 2a in 

x sin(x )dx 

Method 3) Substitution for a rational root of a linear fraction of x . 

This method is applicable when the integrand is of the form 
/ ( "ax + b ^jmj- f ax + b ^ 

where the n. and m. are relatively prime integers with some |m. I t 1, 
and with a, b, c, d constants and ad - be ^ 0. 
Clue - A subexpression of the form 

7~ —J a, b, c, d constants; n, m, relatively prime integers, |m| $ 1 

Examples - 
cos /x dx becomes J 2y cos y dy, y = /x 
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Jx /x + 1 dx becomes J2(y - l)y dy, y = /x + 1 

The above two problems were attempted and not solved by SAINT. 

» 1 T 5 1 1/6 

\~YJ2 1/3 dx becomes J'6y 3 . '1 <ty> y " x 

•*x - x 

I>fer 1 3 dx becomes W^TJ» dy ' y = ^TTs 



Method - Let k = least common multiple of the m. . 

u . fax + b > 1/k 

Substitute y = <^Td' 

Notes - The restriction ad - be f assures that the substitution 
is non-trivial. If ad - be = 0, then ^ = 0. 

Slagle suggested methods 2 and 3 as a single method. Considering 
them as two separate methods facilitated the coding. This method is 
an extension of Slagle 's suggestion since it covers linear functions. 

Even this algorithm should be split into two parts. One would 

handle the case restricted to (ax + b) , the other the more general 
/ ax + b vn/m 

case \^m) • 

Much of the time only the former is needed, but the machinery for 
handling the latter, which is more expensive, is employed. 

A weakness of this routine is its inability to deal with variable 
exponents. These would usually result in the generation of a reduction 
formula as opposed to an integral . The great advantage of an integral 
table over SIN currently is the presence of the reduction formulas. 
The Edge heuristic (See Chapter 5) can generate some reduction formulas, 
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but not many at present. (Or course, an instance of a variable exponent 
should result in a solution in SIN!) 

Method 4) Binomial - Chebyschev 

This method is applicable whenever the integrand is not a rational 
function and possesses the form 

Ax (c, + c x 4 ) , where A, c , c are constants, p, q, r are ratio- 
nal numbers and c c qp ^ 0. 

Clue - A subexpression which is a nonintegral power of a rational 
function. This is followed in FORM by a match of the integrand and the 
form above. 

Examples 



-1 /l - x 2 



i o _ s /o r _ 

x (1 - x ) dx becomes 4,. 2. dy , y = x 

J y (1 + y ) 

6 
x (1 + x) dx becomes J ,2 . L )5 d y> y ~ J x 



Method - Binomial conversion to Chebyschev form (substitute y - x ) 



Thus A«-A/q, and r ♦" p , r 



r + 1 



■1 



q 

Make the first applicable transformation 



a) r integer, r > 



Substitute z = c + c„ y 

b) r integer, r a rational number with denominator d 
Substitute z = y 

c) r 1 integer, r < 0, r„ rational number with denominator d 

,1/do 
Substitute z = (c + c y) ^ 
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d) r 1 + r is an integer 

Substitute z = (ci + c ?Y ^ 1/d l 

Otherwise, return notice of failure to integrate problem. 

Notes - This method was also suggested but not implemented by Slagle. 
It has the advantage of being a decision procedure. That is, if an inte- 
grand has the form given above, then either the method yields the integral 
or the problem cannot be integrated in finite terms. This was proved by 
Chebyschev (see Ritt [ 54 ], p. 27). 

The argument used is roughly as follows: If r,, r-, or r. + r. is an 
integer, then the substitutions above result in rational functions and thus 
can be integrated. Otherwise we know from Abel's Theorem (see Chapter 5) 
that the integral, if it is expressible in finite terms, is a sum of an 
algebraic function and logarithmic terms. The residue of a Chebyschev 
function is everywhere 0. Hence the integral cannot contain logarithmic 
terms. Further analysis shows that the assumption that the integral is 
algebraic leads to a contradiction. 

In this case also the integral tables contain many entries which 
are reduction formulas for the cases when p, q, r are parameters . Some 
such capability should be present in SIN also. 

Method 5) Arctrieonometric substitutions 

This method is applicable whenever the integral is of the form 
R(x, *£x* + bx + a) where a, b, c are constants and R is a rational 
function of its arguments. 

Clue - A subexpression of the form 

9 n /9 

(cx + bx + a) , where n is an odd integer. 



81 



Examples 
r 4 



(1 



~Ts72 dx 
X ) 



becomes 



J 5 — ' dy becomes 

1 - / 



fsinz 

J 4 dz, y ■ arcsin x 

C( 



4 
cos z 



(1 - 



2 9? 

ur + b z >cob % 

A2 + B^ * dz ' z 



sin' 



B 



V 



arcsin 



-Bv_ 



/?T 



Method 

First eliminate the middle term of the quadratic by completing the 
square 

y 

yielding the integrand in the form 

7 



x + h> 



R(y 



- — , ,/cy + a - ^ ) 



Let A - a - — 
4c 

C - c 

If C > 0, A > 0, substitute z 



arctan ; j y 



>/F. 



If C > 0, A < 0, substitute z ■ arcsin 



^ -A 



If C > 0, A ■ 0, replace the quadratic by /c y 
If C < 0, A > 0, substitute z - arcsec f j- y 

If A and C are both numbers, then the signs are determined trivially. 
If A or C are parameters, then the user will be asked whether they are 
positive, negative, or zero through an appropriate message at the console. 
For example if the value of A is e , a message would read 

IS e POSITIVE 
An answer of "yes" is expected if e is in fact positive. However, the 
program can frequently determine whether A or C are positive. This is 
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done by assuming that all parameters are real valued and by using the 

fact that sums of squares of real numbers are positive. Thus 

2 4 
2d + 3e + 5 

is determined to be positive, whereas 

2 2 

-d - 2(e + ty 

is determined to be negative. A single SCHATCHEN rule is used in making 

this determination. 

Notes 

In cases where the coefficients are parameters, it is possible to 
run the program several times and answer questions differently each time. 

SAINT had two transformations which performed the function of this 
method. One method eliminated the middle term from all quadratics, another 
made the arctrigonometric substitutions in all quadratics with missing 
middle terms. The arctrigonometric substitutions are normally made for 
roots of quadratics as we have done and not in all quadratics as SAINT 
attempted to do. SAINT also implicitly required that the coefficients 
in the quadratic be numbers. The kind of interaction between the user 
and the program which is required when one allows nonnumerical coefficients 
became practical when time-sharing systems were introduced. 

Method 6) Elementary function of trigonometric functions . 

This method is applicable when the integrand is an elementary 
function of the trigonometric functions applied to linear argument in 
the variable of integration. 

Clue - TRIG(a + bx) where TRIG 6 {sin, cos, sec, tan, cot, cse} 
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Examples 
1) J sin x dx becomes J (T " ~cos 2x)dx 



^2 2 

,. f /A 2 + B 2 sin 2 x , , f /A 2 + B 2 (l - y 2 ) J 

2) J sin x dx becomes J' 2 ' ' dy, y = cos x 

1 - y 

"^ J i + cos'x dx becomes .W' y = tan -jx 
Method 

I) In problems where the arguments of the trigonometric functions 
are not the same throughout the integrand, the following cases are 

examined . 

\ • i -cos(m - n) cos(m + n)x 

a) J sin m x cos n x dx = — -rr T^ x " — ^ i X~ 

J 2(m - n) 2(m + n) 

,< . , sin(m - n)x sin(m + n)x 

b) sin m x sin n x dx = — Tt *— - \ -^ 

J 2(m - n) 2(m + n) 

\ „ , sin(m - n)x , sin(m + n)x , 

c) J cos m x cos n x dx = — r} (- + — -* ; (— m, n, constants m ^ -n 

2(m - n; 2(m + n) 

Otherwise, the method returns notice of failure to integrate the problem. 

II) If the arguments are the same but are not identically x, a 
linear substitution y = a + bx is performed and the procedure continues 
with the revised problem. 

III) If the problem is of the form 
sin (y)cos (y)dy; m, n integers 

|sin 2y) n (i + 2 . 

i nil 

b) m s n) transform to J (—sin 2y) (— - tcos 2y) 2 dy 

IV) All trigonometric functions are transformed into sines and 
cosines (e.g., tan y -* L ) m order to test if the resulting expres- 
sion is of the form a or b. 



11 11 m 

a) m <• n, transform to J(— sin 2y) n (- + ^cos 2y) 2 dy 

m - n 
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a) Jsin 2n+1 (y)Elem(sin 2 (y),cos(y))dy. 



In this case substitute z = cos(y) 

|cos 2n+1 (y)Elem(cos 2 (y),sin(y))dy 



v , f 2n+l, 
b) Jc- 



In this case substitute z = sin(y) . 

V) All trigonometric functions are transformed into secants and 
tangents in order to test whether the resulting expression is of the 
form: 

|Elem(tan(y),sec (y))dy 

In this case substitute z ■ tan(y) . 

1 si.il v 

VI) Finally, the substitution z - tanp * i + cos y is made - 

Notes - In the case where the integrand is a rational function 
of trigonometric functions of x all the problems can be reduced to 
rational functions. The choice of the transformation governs the 
simplicity of the resulting rational function and the final answer. 
The transformation in step VI above which is always applicable in these 
situations frequently leads to a great deal of work and to complex 
results. Fortunately, a number of simpler transformations such as 
those of steps III, IV, and V are easily recognized and are usually 
applicable. 

SAINT included all of the transformations given above, but they 
were embedded in different places in the program. I is included in 
the integral table. II is an algorithmic transformation, as is step III. 
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IV and V are three separate heuristic transformations. V is yet another 
heuristic transformation. The initial stage in steps IV and V is per- 
formed by still another method. This organization of the methods appli- 
cable to trigonometric functions led to the generation of extraneous 
subproblems since the heuristic transformations were disjoint and were 
not aware of each others actions, nor, in fact, of their own actions. 

For example, the method which performs the preliminary transformation 

s in x 
in steps IV and V (e.g., tan x ~* ) must be inhibited from performing 

the opposite transformation later (e.g., sin ■+ ). 

sec 

More work is necessary in this area in handling arguments to 

trigonometric functions which are linear, but different (e.g., , r ( dx) , 

° J cos(6x) 

Some programs along this line have been designed by Edmund Berkeley, but 
they have not been fully implemented. 

Method 7) Rational function times an exponential 

This method is applicable whenever the integrand is of the form 

P(x) 
R(x)e , where R(x) is a rational function in x and P(x) is a polynomial 

in x. 

P(x) 
Clue - A subexpression of the form e , where P is a polynomial 

in x. If P(x) is linear in x, this method will be attempted if method 

1 is not applicable. 



Examples 

1 . J xe dx = xe - e 

o I x x j e 

2. \, , ,>1 e dx 



x + 1 



2^ x 2 , x 2 



3. J (1 + 2x )e dx = xe 
,2 



4. le dx : not integrable 
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5. J— dx: not integrable 

Method - This method once again is a decision procedure. That 
is, the method can tell whether a problem can be integrated in finite 
terms or not. The method is an improvement of the decision procedure 
in Ritt [54 ] ( p . 48) which handled the case by solving a system of 
linear equations. The procedure is an application of the Liouville 
theory for integration about which more will be found in Chapter 5. 
This procedure is similar in flavor to Risch's [ 53] recent theoretical 

treatment of results in the Liouville theory. 

Cl x m l + s (x) 
Let R(x) - — — jtt-t where S. , Q are polynomials 

S is a polynomial of degree < m , 
C. is a constant, C. + 0. 

We know from the Liouville theory that the integral (if any) will 
be a multiple of e P(x) . (See Ritt [ 54 ] , pa ge 47.) 

Suppose the integral is represented by 

(a (x) +b (x))e P(x) , then 

1 1 Cl x m l +Sl (x) 
P'(x) ai + a^ + P'U)^ + bj - R(x) - -± ^± 

C x 1 * 
Let a^x) - g , , then 

r mi - 1 V^' Ci x»1P» 
1 



and 



- 1 



m 1 C 1 x m l " l Cl x m lp" C lX m lQ 
P' bl + bj « R(x) - P^ - a ; « S l" P' + 1FT Z " + "P^Z1 

The numerator of P'bj + b' is a polynomial T (x) , say, and a rational 
function remainder, U^x), say. Let the leading term of I^x) be C.x™ 2 and 
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the rest of T 1 (x) be S (x) . Now continue the process indicated above 
until some T. (T , say) is 0. This is guaranteed to occur since the 

degree of the T. is decreasing. If at that time the corresponding U. 

P(x) 
(i.e., U ) is also 0, then the expression R(x)e is integrable and 

n PCx) 
the integral is E a^(x)e . If U is not 0, then the problem is 

not integrable in finite terms. 

n n 
Note that if U =0, then R(x) - P' E a. - E a! = 0. 

n l-li i-li 

n 
Let a = E a.(x): then we obtain the relation 

i=l i 

P'a + a 1 = R 

P P P 
P'ae + a 'e = Re r 

P P 
(ae )' = Re 



P P 
ae = Re dx 



For the converse, we refer to Ritt. Also, note the discussion in 
Chapter 5. 

Notes - SAINT was able to solve the first two of the examples 
above. Both were solved using the Integration-by-parts method of 
SAINT. 



SAINT was unable to integrate Je X dx because it found that no trans- 
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formations were applicable to the problem after approximately one minute 
of computation. 

The fact that SAINT was unable to integrate this problem does not 
necessarily mean that the problem is not integrable in finite terms. This 
statement is also true of SIN, in general. This is due to the fail-safe 
nature of the programs. When a fail-safe integration program results in 
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an integral then we know that the problem is integrable. When such a 
program does not yield an integral then one still does not know whether 
the problem can be integrated or not. A semi-decision procedure for 
integration would, in finite time, result in an integral or in the state- 
ment that the problem cannot be integrated in finite terms. Richardson's 
result (see Appendix B) shows that for the integration problem as he 
defines it, no decision procedure exists. Yet decision procedures exist 
for many interesting subcases and especially when one avoids considering 
the matching problems that Richardson shows are inherent in his charac- 
terization of the elementary functions. SIN embodies some decision pro- 
cedures. Future programs are likely to contain more (see Chapter 5). 
One must be quite careful about the computational methods involved in 
order to avoid the explosion which is apparently inherent in many decision 

procedures in algebraic manipulation (see Moses [ 42 ]). We would prefer 

i 

to see expensive decision methods to be attempted as a last resort, such 
as stage 3 in SIN. A final consideration regarding methods for integration 
is that they should not be too radical or else the result will become less 
meaningful to the human user. 

This method was implemented using the rational function package of 
MATHLAB [36 ] . SIN communicates with the rational function package by 
a process called chaining. More will be said about chaining when we dis- 
cuss the integration of rational functions. 

Method 8) Rational functions 

This method is applicable whenever the integrand is a rational function. 
Clue - FORM generates no local clue for rational functions. The 
applicability of this method is determined separately. Sometimes this 
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method is called directly by other methods (e.g., methods 2 and 4). 
Examples 



lm hj 3 dx - -|log e (x + 1) + Jlog e (x 2 - x + 1) + t| arctan ( 2x y~ 1 ) 

2- M dx - -|l 0ge (x + 1) + ilog e (x + 1) + T|log e (x 2 - x + 1) - 

«x - 1 

- 2-^3 arctanf^ 2 ^) - ^lo^ ( X 2 + x + 1) - jfc arctanC 2 *^- 1 ) 



3. J — r 5 — 5 tTo 4 dx M T 1 lo 8 e (x + A) + 5 r log^ (x - A) 

(B z -A Z ) x iJ -AV +A 4 2AB Z - A J e 2AB Z - A 3 

Method - This method was programmed for the MATHLAB system by Manove 
and Bloom under the direction of Engelman of the MITRE Corporation. The 
integration procedure which is used is described in Hardy [ 25 ] . The 
polynomial factorization routine used in this program essentially follows 
Kronecker's method as described in Van der Waerden [ 65 ], p. 77-78. This 
program is also written in LISP and is itself described in "Rational Func- 
tions in MATHLAB," by Manove, Bloom and Engelman [ 36 ] . 

Notes - The power of this method makes the coding of the rest of 
SIN a great deal simpler. SAINT did not have a powerful rational function 
integration program (it could integrate polynomials and ratios of poly- 
nomials with linear and quadratic factors) and it suffered thereby; much 
of the trial and error in some problems for SAINT can be attributed to 
its Inability to integrate certain rational functions which arose as 
subproblems. Some of the extensions which were made to SAINT (e.g., 
methods 2 and 4) could not have been made unless a rational function 
program was present. Thus, the second stage of SIN lets this routine 
clean up the details such as rationalization of denominators which could 
be ignored in making the transformations. 
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Slagle realized that the unavailability of a rational function 
integration program was a basic defect in SAINT. However his proposal 
for the manner in which such a routine should be written was not the 
best. He proposed solving linear equations to obtain a partial faction 
expansion of the rational function. The method in MATHLAB is superior 
computationally. 

As was mentioned earlier the experimental work (e.g., debugging 
and testing) was done using Project MAC's time sharing system CTSS. One 
valuable feature of this system is the power to use programs written by 
others. In our case it was valuable to have access to the rational func- 
tion package of the MATHLAB system. To be sure, in conventional "batch" 
processing one can employ large packages designed by others by using 
intermediate tapes. In CTSS one can conveniently make use of a program 
concurrently under development by another group, providing one is pre- 
pared to spend some time for the process involved. 

The rational function program which SIN uses is available in CTSS 
as FULMAN SAVED. It is a separate core image from SIN and is called 
using the chaining process given below. 

a) SIN writes the problem to be integrated on file MANOVE LISP. 

b) SIN saves itself as MOSES SAVED. 



* 

The widespread availability of time sharing consoles has allowed SIN 

to be used by several people other than the author. "Bugs" in the pro- 
gram. have been pointed out by Michael Levin of Information International, 
Inc., Carl Hewitt and Peter Samson of Project MAC, aad Russel Kirsch of 
the National Bureau of Standards. We would hereby like to express our 
appreciation of their efforts. 
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c) SIN directs CTSS to execute FUIMAN SAVED. 

d) FUIMAN reads HANOVE LISP. 

e) FUIMAN generates a solution to the problem. 

f) FUIMAN writes the solution on file MANOVE ANS. 

g) FUIMAN directs CTSS to resume MOSES SAVED, 
h) MOSES (i.e., SIN) reads MANOVE ANS. 

Experimentally the minimum time for this process has been determined 
to be about 4.5 seconds of machine time. Most of the time is spent in 
steps c. and g in which 32k programs are loaded into core. 

There are, at present, certain differences in the internal repre- 
sentation used in SIN and FUIMAN. These differences are eliminated, 
whenever possible, by two interface routines present in SIN. The dif- 
ferences consist of the following: 

a) log has two arguments in SIN, one in FUIMAN. 

b) PLUS, TIMES have variable number or arguments in SIN and only 
two in FUIMAN. 

c) No floating point numbers are allowed in FUIMAN. Whenever 
possible these are converted to rational numbers (i.e., (a*b) where a$b 
are integers). Otherwise an error indication is given in SIN. 

Method 9) Rational function times a log or arctrigonometric function 
with a rational argument . 

This method is applicable whenever the integrand is of the form 
R(x)F(S(x)) where F is log, arcsin, or arctan 

R(x) and S(x) are rational functions 
and where jR(x)dx is also rational. 



92 



glue - F(S(x)) where F is log, arcsin or arctan and S(x) is a 
rational function. 



1) 
2) 



Examples 

r x 2 Tx 

Jx log^x dx becomes ^log e x - J- dx 

dx 



2 6 e J 2 
3 



r 2 x 3 r — * 

Jx arcsin x dx becomes yarcsin x - J 3 y^ _ X J 

3) -T 1 lo 8<* 2 + 2*) becomes r+t lo «( x2 + 2x) ' Jx~+t ( ? +?) ** 

x + 2x + 1 x + 2x 

Method - Let T(x) - JR(x)dx 

a) F * log 

Solution is T(x)log(S(x) - Jt(x) |^ dx 

b) F ■ arctan 

Solution is T(x)arctanS(x)~ JT(x) x + s*(x) ** 

c) F ■ arcsin 

T S* (x) 
Solution is T(x)arcsinS(x)- JT(x) . "" <** 

/l -8*<K) 
Notes - This routine handles three special cases of the method of 
Integration-by-parts. The utility of these special cases is that they 
direct the solution process quite clearly, whereas the more general sol- 
ution methods may make false starts or require more extended analysis. 

SAINT would have attempted to solve most of the problems that fall 
under this category with its Integration-by-parts method. If we presume 
that SIN had only the rational function capability of SAINT, then this 
method would allow SIN to be more powerful on these problems to which 
this method applies. This is due to the fact that SAINT could not tell 
how much effort it could reasonably expend on its Integration-by-parts 
method and it chose to spend less effort of it than would be required to 
integrate the third problem avove, for example. 
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Method 10) Rational function times an elementary function of 

log c (a> + bx) . 

This method is applicable whenever the integrand is of the form 

R(x)Elem(log c (a + bx)) where R(x) is a rational function and a, b 5 c, 

are constants. 

Clue - A subexpression of the form log (a + bx) . This method is 

c 

attempted if method 9 fails to be applicable. 

Examples 
p log x p 

1} Jdog^ I) 2 dx beCOmeS J(y +V ^ Y = l0§ e X 

2) Ji 1 + Lg^x dx becomeS iTT^ 2 dy > y = log e X 

3) j"j dx becomes J— e-^dy, y = e 

Method - Substitute y = log (a + bx) 



u.^y ■>" 



results in 

t 

— — 2: y lElem(y)^-log e c dy 

Notes - This method is used to reduce the problem to the exponen- 
tial case where the powerful method 7 might be applicable. If method 7 
is not applicable, the transformed problem stands as much a chance of 
being integrated by SIN's current methods as did the original problem 
in the logarithmic form. 

Method 11) Expansion of the integrand . 

This method is applicable whenever the integrand can be expanded 
by distributing sums over products. 

Clue - This method is used whenever all of the previous methods 
have failed to be applicable. No clue for the applicability of this 
method is found by FORM. 
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Examples 
J x(cos x + sin x)dx becomes J (x sin x + x cos x)dx 

J x + e dx becomes J (xe" x + l)dx 

e 

J x(l + e x ) 2 dx becomes J (x + 2xe X + xe 2x )dx 

Notes - SAINT had two heuristic transformations which together per- 
formed the job of this method. The first distributed nonconstant sums in 
products, the second expanded positive integer powers of nonconstant sums. 
In both cases, where Slagle considered the methods inappropriate, SIN 
would have already applied one of the previous methods and solved the 
problem. As a matter of fact, that is also true of the two problems 
for which he considered the methods to be appropriate. 

The Third Stage of SIN 

This stage, the last stage of SIN, is the appropriate place for 
methods of a rather general nature. 

Two methods which properly belong in this stage have been programmed. 
The first is the Integration-by-parts method. This method is used in 
the experiment in Appendix C in which SIN was asked to solve the 86 problems 
attempted by SAINT. Only two of those problems (i.e., Jx cos x dx and 
J cos /x dx) required this method. The second method is based on the Edge 
heuristic described in Chapter 5. A third method, a powerful Derivative- 
divides method, has not been implemented, but will be discussed here. 

In the long run it is expected that only one of these methods will 
be used here — that is the method based on the Edge heuristic or some vari- 
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ant of it . 

The Integration-by-Parts Method 
Examples - 

1) Jx cos x dx becomes x sin x - J sin x dx 

2) Jx log x dx becomes — log x - Jx log x dx 

Method - Let Maxparts be twice the maximum of the value of a 

constant exponent of any nonconstant factor in the integrand. Thus 

2 
Maxparts is 2 for x cos(x) and 4 for x cos x. 

Consider any partition of the integrand into a product of nonconstant 
factors g and h, where H(x) = Jh dx can be obtained by SIN without calling 
the Integration-by-parts method. 

Now consider Jg'Hdx. We require that this integral be found by 
SIN by calling the Integration-by-parts method fewer than Maxparts times. 

If both integrals are obtained, the solution is 
Jgh dx = gH - Jg'H dx. 

Notes - The crucial aspect of this method is embodied in the phrase 
"consider any partition." This method is thus willing to attempt several 
partitions of the integrand. It is thus searching for a solution, and 
searching very blindly indeed. 

In order to avoid searching too large a space, we require that H(x) 
must be found without using this method. SAINT, which also had an Inte- 
gration-by-parts method required that H(x) be found by IMSLN, which is 
a stronger restriction. Likewise the Maxparts device avoids an infinite 
search for the second integral. SAINT, which did not use such a device 
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appears vulnerable to difficulties such as in the problem ] sln x dx. 
Consider h = sin x, g « -. Thus Jh dx - -cos x and jg'H dx - 



I cos x , 
J 5~ <**• 



2 
x 



I cos x I sin x 
One subproblem generated by J j~ dx is J 3" &*. This process 

x x 

can continue indefinitely unless measures are taken to curtail it. 

(Actually J X dx is not integrable in finite terms.) 



The Derivative-Divides Method 

The method of Integration-by-parts and the Derivative-divides method 
are the two general methods that a freshman calculus student is likely to 
learn. Let us recall that SIN's first stage employed a Derivative-divides 
method. However, that method is not as general as it might be. The 
Derivative-divides method attempts to determine whether the integrand can 
be put into the form g(u(x))u' (x) . If this is the case then the substi- 
tution y ■ u(x) transforms the problem into Jg(y)dy. In stage 1, g was 
required to be a single operator. However, in a more general method g 
would not be so limited and the following problems would be transformed 
by this method. (Let us note again that this method is not available in 
SIN at present.) 
1) Jcos x(l + sin x)dx becomes J(l + y )dy, y = sin x 

2) Ji f + io g 2 x dx becomes J i + yi d y> y " lo « e y 

1 e 

r— — 1 r 1 

3) J/TT ? 1 + arcsin 2 x dx becomes Jj-^ dy, y - arcsin x 

The first two of these problems can be solved by SIN's second stage 
(in particular by methods 6 and 10). The third problem is one of the 
simplest examples of a problem which cannot be solved by SIN's first two 



■' ■■M-~j&30$i^$»j-. *.'■■ 
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stages along with the Integration-by-parts method. However, the Edge 
heuristic will correctly guess the integral arctan(arcsin x) . 

SAINT had a Derivative-divides method which was more powerful than 
SIN's. However, it suggested many bad transformations in some cases. 
The method essentially performed a search for a subexpression such that 
the number of factors in the quotient °f the expression and the deriva- 
tive of the subexpression was smaller than the number of factors in the 
original integrand. This is too strong a restriction sometimes. 

A Derivative-divides method was designed but was never implemented 
in SIN. 

The kind of analysis we considered was as follows: Suppose the 

integrand is f (x) and a nonlinear subexpression of it is u(x) , then if 

f ( x ) 

'iT^n can ^ represented as g(u(x)), the method would propose substituting 

r* 
y - u(x) and attempting Jg(y)dy. We should, though, restrict the kind of 

functions g that we would allow. For example , in iiaJL miaht 

^ sin x + cos x ""■5" 1 - 

wish to disallow the substitution y - cos x since it introduces the alge- 
braic term /l - y* into the denominator. If we make the conditions on 
the g's sufficiently restrictive (e.g., rational, algebraic) then the num- 
ber of substitutions per problem that this method would propose would be 
small, and more significantly, each of the substitutions would be quite 
reasonable . 

Further Discussion of FORM 

We would like now to discuss some of the aspects related to the 
FORM routine in greater detail. We note that of the eleven methods 
available in stage 2 of SIN, eight possess local clues which immediately 
identify them to FORM. Method 2, substitution for an integer power. 
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possesses clues which allow FORM to reject the method in some cases. 
Methods 8 (Rational) and 11 (Expansion) do not currently possess local 
clues in FORM and are attempted whenever FORM fails to find an applicable 
method . 

As may be recalled from Chapter 2, one of the advantages of hypo- 
thesis formation is that one can attempt to fit the problem to the method 
at hand. Since FORM is quite aware of the methods which are available to 
it, some such "fitting" could be attempted. This was done in the case of 
algebraic integrands. If an expression is of the form /R(x) , where R is 
rational in x, then FORM will attempt to see if methods 3, 4, or 5 are 
applicable. If they are not, then this problem is going to cause some 
difficulty since it would appear that nothing else except stage 3 methods 
will be available to solve the problem. On the other hand it is possible 
that Methods 3, 4, or 5 are applicable, but that SCHATCHEN was unable to 
make the match. Two excuses can be made for SCHATCHEN in this event. One 
is that SCHATCHEN failed because the rational function R(x) was not ex- 
panded (e.g., /l + x(l - x)), or that the rational function was not com- 

I x + 1 
pletely rationalized (e.g.,/* + ). FORM will thus determine if 

these two transformations are applicable to R (not the whole integrand) . 

If they are, the problem is transformed to account for these changes and 

an attempt will be made to consider Methods 3, 4, and 5 again. Hypothesis 

formation is thus shown to be able to localize the difficulty in a problem. 

An Example of SIN's Performance 

We shall now consider in some detail how SIN performs on the problem 
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I * /A z + B 2 sin z x dx 
" sin x 

This problem stretches the capabilities of SIN a good deal. Thus 
it can be used to indicate some of the strengths and particularly the 
weaknesses in the program as it now stands. Our description will con- 
centrate on the role that FORM plays in obtaining a solution. 

This problem is not a simple one. So it will pass to stage 2, where 
FORM will examine it. It turns out that FORM will arrive at the same 
hypothesis regardless of whether it examines the numerator or denominator 
first, but it will be more instructive to see how it operates on the numer- 
ator. First, FORM will note the square-root (more precisely, the exponent 
of — ) . Since the base is not rational , which would indicate that Methods 

3, 4, or 5 might be applicable, the root is ignored and attention is 

2 2 2 2 

focused on the base A + B sin x. In this sum, the constant term A is 

2 
encountered, and it yields no clue. The factor B is likewise a constant 

2 
and yields no clue. This leaves the factor sin x. The exponent of 2 is 

not interesting. However, the base sin(x) does yield a clue since it is 

a trigonometric function with a linear argument. FORM will, therefore, 

call Method 6 in order to test the hpyothesis that the expression is an 

elementary function of trigonometric functions of x. Method 6 determines 

that the hypothesis is valid and will call SIN after making the substitution 

y = cos x. The subproblem thus generated for SIN is 

As before, this is not a simple problem and again FORM is called in 
order to generate an hypothesis. Interest will quickly focus on the square- 
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root in the numerator. Though the base is a rational function, none of 
the clues in FORM appear to apply. As described in the discussion above, 

FORM will attempt to determine whether an expansion of the base is possible, 

2 2 2 2 
Expansion is, of course, possible and yields the base A + B -By which 

matches the pattern used as a clue for Method 5. Method 5 is now called 

in order to determine whether an arctrigonometric substitution is possible 

in the revised problem which is 

i - y 

Method 5 first validates the hypothesis. In order to determine which 

2 2 
substitution is appropriate, the routine decides that A + B is positive 

2 
and that -B is negative in the manner described in the discussion of 

this method above. Method 5 will now make the substitution 

By. 

z - arcsin ^ + B 2 

which is followed by a call to SIN with the subproblem 

1 (A 2 + B 2 )cos 2 z 



Pi (A 2 +B 2 )cgg 2 * 

J B , AZ + B2 " 2 dZ * 
J 1 - """TJ sin z 



Once again the subproblem is not simple and FORM is asked to examine 

2 
it. In the integrand only two factors are interesting, cos z and 

99 

(1 - A 2 ^s in^)" 1 . Whichever FORK will be asked to examine first, 

the conclusion will be the same — a hypothesis that the integrand is an 

elementary function of trigonometric functions. 

Method 6 will verify the hypothesis that only trigonometric functions 

are present and will make the substitution w » tan(z). This will result 

in yet another call to SIN with the subproblem 

A 2 + B 2 



i* 1 A* + B* 

f 2 2 A^ + B 2 w* dw 

J b (i f w 2 ) 2 (i -A^p- y^z) 
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This Is a rational function and FORM will find no clue in this case. 
Since FORM also did not find any clue to reject the possibility that 
Method 2 (substitution for an integer power) is applicable, that method 
is called next. Method 2 cannot make a substitution, but will call 
Method 8 (rational) to solve this problem. 

The rational function package will obtain this subproblem through 
the chaining process described above under Method 8. First, it will 
transform it by rationalization into a problem of the form given below 

.2 ^ ,2, 



f -B(A Z + f) dw 

J 5 2 9 2 
(1 + w Z )(IT - Aw) 



Then factorization and partial fraction decomposition will result in 

. 1 . 1 1.1 1 . 

+ 2 A xm " 2*a7Tb J dw 



'f 



1 + w 2 



Straight forward integration will now yield the integral 
-B arctan w + «A log g (Aw - B) - -rA log (Aw + B) 
This result will be sent back to SIN for the arduous backward sub- 
stitution: The first substitution is w - tan z. which yields 

-B z + 4a log (A tan z - B) - ^A log (A tan z + B) 
l e i B e 

The second substitution is z ■ arcsin / .; ^m ~ y. This results in 

By 
B . 1. ,._ WSSE- 



B arcsin y + 2 A lo 8 e / S^ "^ 2 " B 



/i - jp-fiz y 2 



- t A lo « e I ' h - + B 
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C 
Note that tan arcsin C is transformed into y , ■ ^ 

The final substitution is y * cos x; this in turn yields 
-B arcsin V/g J fi J cos x ) + ±A logj / < ft B H = 



fi - 2 
B cos x v A +B 



V 1 ' a 2 + B 2COS x 
This is the result that SIN returns for the original problem. SIN 
does not simplify its results by rationalizing them or by combining log- 
arithmic terms. This is certainly a drawback in this problem. Such 
simplifying transformations would result in the answer 

_ _ B 1. , / A cos x + /A 2 + B z sin z x ^ 

-B arcsin / A 2 . u2 cos x - -A log V" ; Th , ,i . j ■ ■■■/ 

/A + B fc 2 °e A cos x - /AZ + B z sin^x ' 

This result is to be compared with the answer in the table (Petit 

Bois, p. 138). That result is 

B 

/ — jCOS X\ _____^, 

B arccos V >/A^ + B z / - A log (A cot x + /A^ csc^x + B) 
In more familiar terms, the table's answer is 

B — COS *) - A 1o* (* COS X ^ 

sin x 

This answer differs by a constant from the answer derived by SIN. 

Although we can only guess at the method that the table's compiler 
used, we can arrive at some conclusions regarding weaknesses in SIN's 
method of solution. 

Let us consider the first subproblem after the modification made to 
it by FORM. 

r- ^ + b* - bV . 

J ! - ' I dy 



-B arcsin ( ^=T cos x) - A log e (a cos x WA^ B* sin* x_) 
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Rewrite this as 



r (A 2 + B 2 - B 2 v 2 > 
J" (1 - y2) Y y^+Bi - B^ dy 



The transformation made above is a standard one in dealing with 
algebraic integrands. The integral above, after division, becomes 

Multiplying through we obtain two subproblems which together are 
simpler to solve than the combined problem. SIN, by not bringing the 
square-root to the denominator, unnecessarily complicates the work of 
the rational function package. This is certainly one of its weaknesses 
in dealing with algebraic integrands. 

SAINT and SIN solutions of the same* problem 

As a further comparison of SAINT and SIN, we shall indicate how 
both operate on the problem 



J (l - x z ) 



4 

5/7 dx 



This problem was chosen because it is discussed extensively in Slagle's 
thesis. 

In SIN, after determining that the problem is not simple, the factor 

2 -(5/2) 
(1 - x ) acts as a clue in FORM and generates a call to Method 5 

which validates the hypothesis that an arctrigonometric substitution is 

possible. This method generates the subproblem 

4 

. V 

' cos^y 
after making the substitution y = arcsin x. 

Again, this is not a simple problem and this time sin(y) will act 



&&* 
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as a clue for the hypothesis that only trigonometric functions are present. 



J l + 



Method 6 validates this hypothesis and generates the subproblem 

4 

-5— dx 
zr 

after making the substitution z ■ tan y. 

This subproblem is rational and FORM finds no local clue. Method 2 

is called and is ineffective. Method 8 (rational) is called and the rational 

function package returns the expression 

3 

z 

3 
as the integral. 

Backward substitution yields 

„ 3 

tan v _ , 

— r— l - tan y + y 



■? z + arctan z 



3 
and finally we obtain the integral 



x 

In SAINT, the solution of 

L, ~ _ ' 1^I1 dx 



3 n 2 / n 2 ' ' arC8ln X 

X X 



4 

X 



1(1 - x*>^ 



proceeds roughly as follows. 



In this problem y = arcsin x is substituted yielding 
4 
'cos H y 
as in SIN. 



i) J li Vdy 



Subproblem I is transformed into 

r 4 

II) J tan y dy 
and into 

III) Jcot 4 y dy 

both of which will now be added to the subproblem tree. Finally, z - tan -p 
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transforms subproblem I into 

IV > J 32 (1 + «i) ( i - z 2>4 «« 
which is transformed by IMSLN into 

4 
z 2)(! . z 2>4 dz 



V) 32 J (1 + ^ 



No more transformations are possible on subproblem I, so transfor- 
mation will be attempted on subproblems II, III, and V. 
Subproblem II is transformed by z ■ tan y into 

r 4 
vi) Jr+-? dz 

IMSLN then performs the polynomial division and obtains 

VII) J (-1 + z 2 + Y~Z) dz 
From VII we obtain 

VIII) J-dz, 
EC> Jz dz, and 

Subproblems VIII and IX are solved by the table look up in IMSLN. 
This leaves II, III, V and X. 

Ill can be transformed by z ■ cot y, into 

XI > W"+ z 2) dz 
and IMSLN will convert it to 

XII > " W I zh dz 

By now only subproblems V, X, and XII remain to be considered. The 
transformation w ■ arctan z on subproblem X yields 
XIII) Jdw 



-jrr.-— 
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which IMSm solves by the table look up. Now IMSI2* realizes that . sub- 
problem VII has been completely solved and by backward substitution can 
obtain the final result 

1 3 

-rtan arcsin x - tan arcsin x + arc sin x 

We should note in the solution methods how SAINT keeps several 
options to the particular path to be followed in obtaining the answer. 
This is particularly noticeable in subproblem I which generates II, III, 
and IV. Only one of those three subproblems need be solved. SIN will 
generate only one subproblem, and will commit itself to using it. Of 
these subproblems only IV can truly be faulted. The tan — x transformation 
is generally to be eschewed if any other transformation is possible. How- 
ever, the lack of communication between SAINT' s heuristics make such a 
principle difficult to implement. *;. 

Furthermore, it appears that subproblem XIII should logically follow 
X. However, the cost of obtaining the character of subproblem X in SAINT 
forced the particular order of events to be followed. A mechanism like 
FORM would have simplified this situation tremendously. 



108 



Given that we have decided on an outstanding factor in the 
integrand, we can frequently make an educated guess regarding the 
form of the integral, assuming, of course, that the integral can be 
expressed in finite terms. 

Suppose the integral f(x) has an outstanding factor of the 

a (x) K (x) 

form e , say, f (x) * h(x)e then we can guess that 
T f(x)dx is of the form 

a(x)e 8(x) + b(x) - J f (x)dx - J h(x)e g(x) dx 

where a(x)> b(x) are undetermined functions of x, and where 

r(x) 
a(x) will not involve e . 

Certainly Jf (x)dx must contain e 8 since one cannot other- 
wise obtain such a function through differentiation. If Jf(x)dx 

k(x) 
has a nonlinear occurrence of e e then so will its derivative, 

but this nonlinear occurrence will not cancel in f(x). 

Given the above choice for Jf (x)dx, then by differentiation 

we obtain 

a(x)e 8<x) g , (x) + a'(x)e 8(x) + b'(x) - f(x) - e g(x) h(x) 

A simple choice for the value of a(x) can be obtained by requiring 
that the first coefficient of e 8 ^ on the left be equal to the 
coefficient of e 8 ^ in f. Using this choice we obtain 

a(x) . fW . Mx) 
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The value of b(x) Is obtained In a subproblem. 

,8(x). 



>(x) - J*-a'<x)e gw dx 



Hopefully, the choice of a(x) made above will yield a simpler 
integration problem for the determination of b(x) than the original 
problem. Let us consider a simple example using this guessing 
procedure. 

f (x) « xe 

a(x)e X + b(x) - Jf(x)dx 

a(x)e + a' (x)e + b' (x) - xe 

x 

i \ xe 
a(x) - -j- - x 

e 
a'(x) ■ 1 

b(x) ■ J-l-e dx - J-e dx 

The subproblem for b(x) is certainly simpler than the original 
problem. It will be instructive to consider how the method out- 
lined above will handle such a problem. Below we shall usually 
ignore the functional characterization of a(x) and b(x). 



J-e*dx 



a.,e + bj ■ b 



a e + a|e + bj= b' - -e 
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x 

a = — s = -1 
1- e 



a[-0 



>! = J -0-e X dx = JO dx = 



cons tant 



b = a e + b = -e + constant 



Finally, 



ff(x)dx = xe - e + constant 



Let us now consider another example using this procedure. 

ti \ 2 s 

r (x) = x cos x e 



2 sin x 2 



2 
The outstanding factor in f(x) is e 



2 

s in x , r> r . . , 

ae + b = f (x)dx 

• 2 -2 .2 

s in x^ 2 _ i s in x , , o s m x 

; cos x2x+ae +b=x cos x^e 



a' = 

b 1 = C, b = constant 
2 



r> - , . , i s in X 

f (x) dx = -g e + constant 



Ill 



The first of the two problems above is usually solved by In- 
tegration-by-parts. However, that method requires an integration 
step (i.e., re x dx) which we did not perform. Furthermore, the 
integration by parts method is inapplicable in the second problem 
above. The latter problem is handled by the Derivative-divides 
method such as is used in SIN's first stage. So the analysis per- 
formed by the Edge heuristic and in particular the analysis of 
Edge that we have been presenting is different from either of these 
two general methods of integration. 

An analysis which is similar, but more complex than the one 
made by Edge is employed by Method 7 of SIN's second stage. Let 
us consider the manner in which the method proceeds in light of the 
discussion above. 

We recall that Method 7 deals with integrands of the form 

P(x) 
R(x)e where R is rational and P is a polynomial in x. 

An example solved by this method is 

2 x 2 

f(x) = (2x^+l)e X 



Edge would in this case guess 

x 2 
a(x)e +b(x) = Jf(x)dx 



and 



2 2 

2x^+1 2x +1 



a(x) --^zy.- — 
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Method 7 is superior in this case in that it considers the 
R(x) factor term by term. Thus, it would guess 



a(x) 



2yl 



2x 



(x2)' 2x 



It turns out that this is the correct value for a(x) since 

2 
i x 

the integral is exactly xe 

On a more complex problem such as 



ft 4 ^ 2 2 

2x + 5x + x + 4x + 1 x 

(x 2 +D 2 



Method 7 would proceed by first letting 



a(x) 



2x 



(x 2 )'(x 2 +l) 2 



2 2 



The subproblem it generates is 



4 3 4 

4x + x + 5 



L±l x 2 

e 



(x+1) 



Now it lets 



4x 



3 l (x) = 2 o 2 
1 (xV+D 2 



2x J 

— 2 7 

(x Z +l) z 



etc . 
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Finally, the result is 



5 ., 3 , 2 , 9 
x + 2x + -gx + x + 7=r x z 
— — _ 

(x +1) 



3 2 
2x + 2x + 1 x 
2 e 

2 (x +1) 



Thus, we see that although the heuristic of guessing the form 
of the integral is correct in the two examples above, the particu- 
lar mechanism for guessing the values of the undetermined coefficients 
which is employed in Edge is not sufficiently powerful. We shall 
now indicate two other difficulties with the analysis of Edge 
described above. 

Let us recall that Method 1 of SIN's second stage handles inte- 
grands of the form Elem(e ). This method substitutes y=e . In 
the case of rational functions of exponentials this substitution yields 
a rational function. Thus, for example, 

f(x) = (e X +l)e 2x 
becomes 

(y+i)y 

after making the substitution. The rational function package will 
expand this integrand and integrate the resulting quadratic in y. 
Edge would guess the form of the integral without making a corres- 
ponding expansion. This leads to an incorrect guess of the form 
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since the two factors in f(x) are closely related. Had Edge ex- 
panded the integrand and integrated the terms separately, it 
would have easily obtained the integral of f(x). 

Another difficulty with the manner in which Edge guesses the 
form of an integral is shown in 

zi •> 1 -x 

f < x > = ^r~ e 

e +1 

Method 1 of SIN's second stage would yield a rational function 
which would be factored and expanded in partial fractions by the 
rational function package. Here again the two factors f(x) are 
closely related and thus the guess of the form of the integral 
made by Edge and the resulting guesses of the coefficients will 
fail to yield the integral. A partial fraction expansion is re- 
quired if the integrand is a rational function of related terms. 

While keeping these weaknesses of Edge in mind, we shall con- 
tinue to consider how the guessing heuristic operates on outstanding 
factors of different forms. 

Let us suppose that 

f(x) = h(x) log(g(x)) 
and that the logarithmic factor is the outstanding factor in f(x). 
A good guess of the form Jf (x)dx, if it exists, is 

clog 2 (g(x)) + a(x)log(g(x)) +b(x) =Jf(x)dx 
where c is a constant and a(x) does not involve log(g(x)). 
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2 
The log term is necessary (e.g., f(x)=l/x logx) , but its 

coefficient is only a constant. Otherwise the derivative of the 

2 
from above would contain a log term which would not cancel in 

f(x). 

Differentiating we obtain 

2c fi -^" log g(x) + a^4N- + a' lo 8 8< x > + b ' " h (x)log 8< x > 
g(x) ° ° g(x) 



or 



<2cS ~oo + a ' )l08 8<x) + a& && + b ' ' h(x) l ° 8 8<x) 

In the above we grouped the terms involving the outstanding 
factor log g(x). We note two differences from the exponential case. 
First there is the constant c which did not arise before. Then 
the coefficient of the log term is a' instead of a. We can solve 
for a(x) by using the relationship 

a - Jh(x)dx - 2c log g(x) 

We now use the fact that a(x) is independent of log g(x) in 
order to obtain a value for c. That is, if J > h(x)dx has a term in- 
volving log g(x), the c is chosen so as to cancel that term. 
Otherwise, we chose c-0. The value of b' is determined by the 
relationship. 
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g(x) 



Let us consider an example. 



f(x) = (x + l/x)log g(x) 

2 
c log x + a log x + b = f (x+l/x)log x dx 



(2 c/x + a 1 ) log x + a/x + b' = (x + l/x)log x 

a = J(x + l/x)dx - 2c log x = 1/2 x + log x - 2 c log > 

2c = 1, c = 1/2, a = 1/2 x 2 
b 1 = -a/x = -1/2 x 
b = -1/4 x 2 

9 9 

J (x + l/x)log x ex = 1/2 log x + 1/2 x log x - 1/4 x 

It should be noted that [ (x + l/x)dx can, of course, also be 
obtained by a guess of the integral. 

The guess for the logarithmic case generalizes when f(x) is 
of the form 

f(x) = h(x) log n g(x), n > 

In this case we can guess 

c log" g(x) + a log n g(x) + b - Jh(x)log n g(x)dx 
with a,b,c determined using the same method as above. 
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Let us consider how we can capitalize on our experience of the 
types of outstanding factors dealt with above. Suppose f(x) is of 

the form 

f (x) = ki£) — , where , . 1 l f v is the outstanding 

1 + g Z (x) + g W 

factor . 

The argument now proceeds as follows: One could arrive at a 

factor ^ by two routes which do not involve complex con- 

1 + g (x) 
stants: 

a) log(l + g 2 (x)) 

b) arctan g(x) . 

In either case the coefficients must be constants since if they were 

not the derivatives would contain terms more complex than found in 

the integrand. Thus the guess is 

c log(l + g 2 (x)) + d arctan g(x) - jf(x)dx 
2cgg' + d*' , h(x) 
1 + g 2 1 + g 2 1 + % 

(2 gc + d) g' - h(x) where c, d are constants. 

x 
Consider f (x) ■ 7 

1 +x 
(2x 2 c + d)2x - x 

2 1 
2x©+ d m 2 

c -0, d-£ 

r i 2 

Jf(x)dx - rarctan x 

X 

We should note that our guess fails in such cases as T 

1 + x H 
in which division must be attempted first , or in the case of 



1 2 
r which is equivalent to cos x. 



1 + tan x 



118 



In order to contrast the Edge heuristic approach with that used 
in Stage 2 of SIN, let us consider functions of the form 

f (x) * * X ' ,. , n a positive integer 

(1 - g Z (x)) n/2 

An educated guess for the form of the integral of f(x) is 

5* T75 r + b - Jf(x)dx, unless n = +1 

(1 - Si*))*' 2 ' 
If n = +1, then we shall also consider the possibility of a 

c arcsin(g(x)) term, where c is a constant. 

An example we considered in Chapter 4 is 

4 
x 



f(x) = (1 . ,2,5/2 



* + L f ^ J 




2 3/2 + J 2 5/2 J * 
(1 - xV (1 " x ) ' 




•(=f)(-2x) 


4 

X 


(1 -x 2 ) 5 ' 2 ' (1 - x 2 ) 3 ' 2 ' L " (1 


2.5/2 
- x ) 


a - 3x" 3 




a' =x 2 




2 
i ' " x 




"(1-x 2 ) 3 / 2 





Now we shall generate a subproblem. 



+ b, - 



2,1/2 T °1 



(1 - xT" A (1 - x*) 



2.3/2 



dx 



^(-l/2)(-2x) aj -x 2 

(1-x 2 ) 3 ' 2 (1 - x 2 ) 1 ' 2 ^ (l-* 2 ) 3 ' 2 

2 

a - ^- = -x 
1 x 
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bJ = 



1 (l-xV /2 
In this case we shall guess 

a 2 (l - x 2 ) 1 ' 2 + c arcsin x » J (1 - x 2 )~ 1/2 dx 



a 2 (l/2)(-2x) c 1 

(i - x 2 ) 1/2 + (i - x 2 ) 1 / 2 " (i - x y/ 2 



-xa 2 + c 



c = 1 



a 2 =0 



The final result is 

4 3 

n _ ^\-3/2 ,. 2.-1/2 

arcsin x 



J* £ 2T572 dx = T (1 - x2 >" 3/2 - *d - * 2 >" 1/2 + 

(1 - x ) 



We should like to mention how Edge handles trigonometric functions. 
For outstanding factors of the form sin(g(x)) it guesses cos(g(x)) and 
it guesses cos(g(x)) for outstanding factors of the form sin(g(x)). 
However, this manner of dealing with trigonometric functions is not 
necessarily the best one. Edge should in some cases consider the com- 
plex exponential form of the trigonometric functions. In this way 
J sin x dx can be found easily for integral values of n after expanding 
the complex exponential form of the integrand. By keeping the trigo- 
nometric form Edge is forced to deal with methods such as "solution by 
transposition" which occurs in J sin x e X dx when one of the subproblems 
is J -sin x e dx. 

We have indicated above some examples in which Edge fails to 
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make a good guess for the form of the integral or the values of the 
undetermined coefficients in the form. Thus, it Is necessary to 
determine whether Edge is progressing toward a solution. If the 
outstanding term involves an exponent and the absolute value of the 
exponent is decreasing, the routine thinks that it is making progress. 
The same is true if another factor in the integrand is exponentiated 
and its exponent is decreasing while the outstanding factor remains 
the same. The program is certainly not progressing if it obtains 
a subproblem which is exactly the same as some previous subproblem, 
though a solution by transposition is attempted if a subproblem is 

a constant multiple other than one of some previous subproblem. 
In the above we have indicated some cased in which the form has co- 
efficients which were constrained to be constants. The current 
version of Edge handles these cases by attempting a guess which ig- 
nores a term (usually the one with a constant multiple). If that 
guess fails to yield the integral using the progress information 
outlined above, the program backs up and introduces a new term in 
the form while eliminating another term. In this manner Edge per- 
forms a depth first search. 

Below we would like to indicate the theoretical results which 
underlie the Edge heuristic. 

Historically, the quest for results regarding the form of an 
integral goes back to the early nineteenth century. Laplace con- 
jectured that the integral of an algebraic function (y is algebraic 
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in x if P(x, y) = where P is a polynomial with constant coefficients) 
need contain only those algebraic functions which are present in the 
integrand. This conjecture was proved by Abel. Liouville examined the 
form of the integral of an elementary function in a series of papers in 
the 1830' s. Before we present the statement of Liouville' s main theorem, 
we shall need some preliminary considerations. An important feature of 
Liouville' s theory of integration is a hierarchy of elementary functions. 
In level of this hierarchy are the algebraic functions. The monomial 
of level is x. A monomial of level i + 1 is a function represented by 
e or log y, where y is a function of level i and where the monomial has 
no representation which is of lower level than i + 1. Level i + 1 also 
contains all functions which are algebraic combinations of monomials of 

level i + 1 with functions of lower levels provided again that those 

2 
x 
functions have no representation of lower level. Thus, xe is of level 

x e* 2 

1 and e e + log(l - ix ) is of level 2. We should note that this 

hierarchy includes all trigonometric and arctrigonometric functions by 
using their complex exponential and logarithmic forms in order to clas- 
sify them. 

Given a representation of an elementary function one can list 
the monomials, and algebraic functions of these monomials which were 
combined to form the function. Among the monomials and the algebraic 
functions there will be some which are of the highest level . Choose 
one such function and call it the principal function. Thus, the 
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original function is a rational combination of the principal 

functions with functions of equal or lower level. The principal 

2 x 2 

function in xe X is e and the principal function in 

e x +l is e . It is the concept of a principal function which we 

2x ., x 
e +3e 

were striving for when we defined the concept of an outstanding 
factor in an integrand. We noted above some of the difficulties 
that one encounters in making an educated guess for the form of the 
integral when using only the notion of an outstanding factor. The 
principal function concept surmounts these difficulties. 

We are now in a position to ask whether there are any more 
monomials and algebraic functions in the integral of a function 
than in the function itself. The answer provided by Liouville's 
general theorem is that except for logarithmic extensions there are 
none. Liouville's theorem states that 

n 

(* f(x)dx = v (x) + E c. log v. 
J o i=1 1 1 

where the ci's are complex constants and the v. are rational 
functions in the monomials and algebraic functions of these which 
appear in f [54] . 

Liouville's theorem itself gives a strong rationale to the Edge 
heuristic since it makes strong restrictions on the possible forms 
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of the integral. Recently, and independently of our work on Edge , 
Risch [ 53] has strengthened the Liouville theorem by showing that 
the constants c. need only be algebraic over the field of constants 
generated by the constants in f(x) with the ground field of the 
rational numbers. Risch has also given a decision procedure for 
those functions obtained without using any algebraic operations 
other than rational operations. His method is similar to the 
one employed in Edge in that it relies on knowing the possible form 
of the integral. However, it is superior to Edge in the manner in 
which it obtains the undetermined coefficients and in its use of 
partial fraction decomposition with respect to the principal 
function in the integrand. When algebraic operations are allowed 
in the integral, Risch believes that the integration problem may 
in general be recursively unsolvable. (See Appendix B where the 
integration problem is shown to be unsolvable using a different 
formulation than Risch's.) However, he is optimistic about integrands 
which are algebraic functions of level in our hierarchy. 

We believe that methods which rely on guessing the form of 
the integral such as Edge or ones based on Risch's algorithm will in 
the near future provide us with very powerful integration programs. 
However, the amount of machinery that they call into play and their 
use of radical transformations such as the complex exponential form 
of the trigonometric functions indicate that those methods are not 
to be applied when more specific and presumably more efficient 
methods are available. 



Chapter 6 
SOLUTION OF ORDINARY DIFFERENTIAL EQUATIONS 

As a first approximation one might attempt to treat the pro- 
blem of solving ordinary differential equations by using a similar 
strategy to the one used in SIN for integration problems. Let us 
recall that SIN used a three stage approach. First it attempted 
to solve the problem using simple methods. Next the FORM routine 
attempted to use local clues to determine which one of a specific 
set of methods was applicable to the problem. Finally the Edge 
routine employed a more general method of solution. In this 
chapter we shall consider how such a strategy would fare in the 
problem domain of first order, first degree ordinary differential 
equations (i.e. P(x,y)y'+Q(x,y)-0). We shall indicate the approach 
that was finally taken and describe the methods of solution which 
were programmed. 

There appears to be general agreement in the texts of ordin- 
ary differential equations regarding the elementary forms of dif- 
ferential equations. Linear, exact and separable equations seem 
to constitute the universal choice as elementary forms. They are, 
respectively, of the form f (x)y '+g(x)y-tfi(x)*0, P(x,y)dx-KJ(x,y)dy»0, 

where dpdQ, and A(x)B(y)dx+C(x)D(y)dy-0. These forms are relative- 

Syox 
ly easy to recognize, and immediately reduce to integration problems. 

We shall adopt the usual convention that a reduction of a differ- 
ential equation to one or more integration problems constitutes a 
solution of the equation even if the expressions to be integrated 
cannot be integrated in finite terms. Functions which can be ex- 
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pressed in terms of elementary functions and Integrals of elemen- 
tary function are called Liouville functions . Due to the above- 
stated properties of linear, exact, and separable equations, the 
set of methods which determine whether the equation matches one 
of the forms constitute a reasonable analogue to SIN's first stage. 

When we consider finding an analogue to the FORM routine of 
SIN, we immediately arrive at difficulties. It is rare that one 
can make a slight change to a differential equation and still be 
able to use the same method of solution, let alone obtain a sim- 
ilar solution. Let us consider how the method of solution changes 
as we modify the five equations below. The methods of solution 
used (i.e., linear, exact, homogeneous, Bernoulli, and linear co- 
efficients) will be described later. 

1) 2xy* + y+x+1-0 
linear 

2) 2xy'+y(y4x+l)«0 
Bernoulli 

3) (2x+y)y'Hy-Hc+l-0 
linear coefficients 

4) x(x+y)y'-ty(y+2x)-0 
homogeneous 

5) x(x+2y)y'+y(y+2x)+l-0 
exact 

It should be noted that none of the methods mentioned above 
is applicable to any of the other four problems. The situation is 
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even more serious when we note that equation 6 is not integrable 
in terms of Liouville functions, but equation 7, which varies 
from equation 6 by only the addition of the constant 1, does 
possess a Liouville solution (see Ritt [54] P« 73). 

6) x 2 y'+x 2 (y 2 -l)-2=0 

7) x 2 y , +x 2 (y 2 -l)-l-0 

Since the equations above appear quite similar, any test based 
on local clues only is going to fare quite badly. Thus the pos- 
sibility of implementing an analogue to SIN' 8 FORM routine does 
not appear very promising. One could of course, use global clues 
(such as the number of occurrences of x and y in the coefficient 
of y') to conclude that certain methods are inapplicable (for ex- 
ample, the linear method is inapplicable if there are any occur- 
rences of y in the coefficient of y'). However, this approach is 
not likely to give us a great increase in efficiency. 

On the basis of the difficulty just noted, one would suppose 
that a practical general method for solving first order, first 
degree ordinary differential equations is not likely to exist. 
Surprisingly, a general method does exist. It is known as the 
multiplier method. It can be shown that if a Liouville solution 
exists, then there also exists a Liouville function u(x,y), which 
can be used to multiply both sides of the equation and obtain an 
exact differential equation and thus an immediate solution. That 

is, given P(x,y)dx-H}(x,y)dy-0, then uPdx-HiQdy-0 satisfies JL(uP)=_&(uQ). 

dy ox 

There is, however, a slight catch in the multiplier method - it is 
very hard to find an appropriate multiplier except in special 
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cases. In fact, several texts caution their readers against trying 
to consider finding multipliers to differential equations. The 
Liouville theory (see Chapter 5) yields a form that an elementary 
solution to a first order differential equation must satisfy. How* 
ever it does not appear likely that one could write a method like 
Edge which would exploit this information, except in special cases. 
Negative results such as those in Appendix B appear to dampen the 
hope that one could find a general method for solving differential 
equations. 

We thus conclude that finding an analogue to SIN's strategy 
in the domain of differential equations is quite difficult if not 
impossible. We can, however, decrease our expectations and follow 
the traditional technique given in texts on differential equations. 
That is we can determine if the problem is solvable by one of a 
set of special methods by examining the applicability of the methods 
one at a time. It is this approach which was implemented. We were 
reduced to a search for a method because of our inability to either 
localize the problem or to find a simple model for it. The cru- 
cial role of constants in determining a solution frustrates even 
the most primitive simplifying considerations. There is one con- 
solation in the approach taken, and that is that once we find a 
method which is applicable it is either immediately reducible to 
integration problems or reduces to simple problems (i.e., linear, 
exact, or separable) in one or at most two steps. Furthermore, 
these steps are known in advance in most cases. 

Eight methods of solution for first order, first degree 
differential equations were coded. These include most of the 
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methods for solving first order equations taught in an introductory 
course on ordinary differential equations. As stated above, the 
methods are examined in turn in order to determine if they are 
applicable. The simple methods are attempted first. These will 
all call SIM whenever they apply in order to solve some integra- 
tion problems. The five other methods will generate subproblems 
which are usually either linear, exact or separable. 

The conventions for stating the problem to the machine are 
the ones used in the text books or the tables. When the dependent 
variable is x, and the independent variable is y, the problem may 
be stated in either form I or II: 

i P(x,y)y'+Q(x,y) 

II P(x,y)dx*}(x,y)dy 

It is assumed that the expression given is to be equated to 
0. The result, if found, will be stated in the form 

f(x,y)=Co , 
where Co is a constant of integration. As will be seen, no attempt 
is currently made to solve for y or to perform other simplifications 
such as eliminating logs in the resulting expression. 

Top level control resides in a routine called SOLDIER (SOLution 
of Differential Equation Routine). SOLDIER will translate the pro- 
blem statanent into the form (either I or II) desired by the par- 
ticular method. It will be noted that books tend to state a problem 
applicable to a given method in only one of the two forms (e.g., 
linear equations are usually in form I, and exact in form II) . 
No attempt was made to use this fact as a clue to a solution. 

We now shall proceed in describing the methods. 
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FORK 



Method 1 LINEAR 



f(x)y'+g(x)yfh(x)=0 



Procedure 

Let PfcO-jg* 

The solution is 



, Q(x)= 



h£xl 



f(x) 



/Pdx 



ye 



/■• [• 



JP(x)di 



dx = Co 



Notes 



The recognition of this form is done by a SCHATSHEN pattern. 
Since equations of the form f (x)y'+g(x) [h(x)y+fc(x) }=Q will not be 
recognized as linear by SCHAT.CHEN using the pattern given above, 
expansion is attempted as a heuristic aid to recognizing forms. 
Expansion is, however, attempted only when a single occurrence of 
y appears in the equation. Thus f (x)y'+g(x)y*h(x)[y+k(x)]*:0 is not 
expanded and is not recognized as a linear differential equation. 

Examples 

1) y'4y+x=0 
becomes 

ye'Wxe^x^o 



2) 



Thus solution is 

X j x x „ 

ye +xe -e =Co 

xy'+xy+l=0 

X f X 

results in ye +j£_ dx = Co 



Method 2 



SEPARABLE 



FORM A(x)B(y)dx4C(x)D(y)dy=0 
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Procedure The solution is 



f±&L dx +/DiZi dy = Co 
J C(x) J B(y) y 



Notes 

No attempt is made to recognize this form except through 
SCHATCHEN's matching techniques. Thus no factorization of the 
equations is attempted. That is the factorization must be explicit 
although several factors may involve just y or just x. 

Examples 

1) x(y 2 -l)dx - y (x -l)dy=0 
becomes 

f 2-— dx +/"V L - <*y=Co 
J x -1 J y -1 

Thus the solution is 

1/2 log (x 2 -l) - 1/2 log (y -l)=Co 

This answer is normally simplified on tables to become 

2 2 2 

x -1 =Co or (x -l)=Co(y -1). As stated above no attempt is 

currently made to perform such simplifications. 

x 

2) e siny y'4xcosy=0 

becomes 

dx=Co 



fiiazdy +r*e" x 

/ cosy ' 



or 



"X ~x 
-log cosy - xe -e =Co 

The transformation of this problem to the dx, dy form is 
performed by SOLDIER. 
Method 3) Exact - Multipliers 
Exact FOBM P(x,y)dx + Q(x,y)dy=0 
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The method is applicable whenever 

ay ax 



The answer is 



/pdx+/ 



3_ 

ay 



Pdx 



dy=Co 



Since this method is closely related in form requirements 
and solution method to certain special cases of the multiplier 
method, these cases are considered here. 

a) If 9Z - m 

r)Y ax = h(x) , i.e. y the quotient is just a function of 

, Q , , -, . • j'h(x)dx 
x, then the multiplier is e 

Procedure Let P (x,y)= P(x, y)*multiplier, Q(x,y)= Q(x,y)*multiplier 
P and Q are guaranteed to satisfy 

ill = 32 
ay ax 

The solution is obtained using the procedure of equation I 

above with P,Q replaced by P and Q, respectively. 

b) If _^2 ££. > that is the quotient is a function of y only, 
9 % 9Y = k(y) 



then 



/k(y)dy 



is a multiplier. Proceed as in step a). 



I£ & = . m and m = m 

sy ax ox ay 



then the multiplier is — ~ — 5 • Proceed as in step a) 

P +Q 



Notes 

SCHATCHEN is used to perform the matching required in testing 
to determine if ^F equals Q. Clearly a Tnartciriug program such as 

ax ay 

Martin's [37] would be preferable in this case since no pattern 
matching is necessary, but only a match for equivalence. 
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The division steps employ only SCHVUOS's limited simpli- 
fication methods for quotients. Thus no factorization is 
attempted. At present there exists no simplification program 
which can simplify quotients well. For example 

e 2x +2e X +l 
e +1 

is not simplified to e +1 by any reported simplification program. 

Another approach to determining the applicability of the first 
three multiplier cases is to differentiate the quotient with respect 
to y in the first case and with respect to x in the second case. 
This reduces the recognition problem to a match for equivalence to 
0. In this manner we avoid placing constraints on the simplifica- 
tion program for determining the applicability of the method. How- 
ever this technique does not yield the desired value of the quotients. 

There exist many other special cases for the multiplier. In 
fact the origin of Lie Groups was motivated by considerations 
regarding the families of differential equations which are solved 
by particular multipliers. 
Examples 
1) (4x 3 y-12x 2 y 2 +5x 2 +3x)y , +6x 2 y 2 -8xy 3 +10xy+3y=0 



Solution is 



3 2 2 3 2 
2x y -4x y +5x y+3xy=Co 



2) (2xy+5x+l)y'+y 2 =0 



Solution is 

2 -5/ 
xy e ' + J e "'dy = Co 

Method 4 Bernoulli 



A-5/y + j>5/y d 
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a subcase of method 8, but is given special treatment here because 
of the frequency and ease of recognition of this form. 

The factorization of x from the equation must, in general, 
be performed in order to have the result recognized as separable. 
The recognition of homogeneity and factorization are performed by 

SCHATCHEN and SCHVUOS and thus are not unusually powerful. For 

2 
example x +xy y'+y=0 is not recognized as homogeneous. 



X 




Examples 




2 2 
1) 3x y' - 7y - 


3xy-x 2 =0 


solution is 





1<5g e x - -=■=. arctani/7- 2 =Co 
2) 2x(y 3 +5x 2 ) y*+y 3 -x 2 y =0 



solution is 

log a <.3+2 
9 e x 9 



log x + _10 log j " 1 lo 6 (3+7 ) = Co 
e o e „ q & 2 



x 

Method 6 Almost Linear 

FORM f(x)g(y) y' + h(x,y) = 

where 

h(x,y) = k(x)l(y)-hn(x) 
and 

i' (y) = g(y) 

Procedure 

Substitute u(x) = l(y) resulting in the linear equation 

f(x)u' + k(x) u+m(x)=0 
Notes 

This is a method which is rarely indicated in the texts. 
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Examples 

1) xyy' + 2xy 2 +l-0 

2 
substitution is u(x)=y 

yielding 

■ixu' + 2xu+l*=0 

2 1 

2) x 2 cosy y' + siny + e x = 
substitution u = siny 
yields 1 

x 2 u' + u + e X = 

Method 7 Linear coefficients. 



Procedure 



where a,b,c,a',b',c' 
are constants and 
ab 1 - a'b 4 



Substitute 



b'c - be' 

a'b - ab' , ' "' ~ ' a'b - ab' 



«*■»- :.:: 5. y* ■ r - :.k : :j 



and obtain a homogeneous problem (method 5). 

Notes 

Recognition is based on matching 

A(ax+by+c) n (a'x+b'y+c') ~ n repeatedly 
in F(x,y), where a,b,c,a',b',c' are assumed to remain fixed in 
f(x,y). 
Examples 

1) <4y+llx-ll)y'-25y-8x+62=0 
answer is 
log a 




+ 3/2 logg / -4 



136 



2) <y+x-l) y'-y+2x+3=0 
answer is 



5 



log e (xf | ) + ^ arctan ^\ ( y " 6 



(■<.€)■ 



-I 



+ 1/2 1<« ( 2 M ^ ) J = Co 



'e 

3 

Method 8 Substitution for x n y 

FORM y'+L(x,y)=0 
where L(x,y)= * H (x n y), 

Here H is a function of a single argument j 
and n is a constant to be determined. 

Procedure Substitute u(x)= x y resulting in the sepaxable equation 

du dx 

u(n-H(u)) " x 

The method employed to recognize this form uses the implicit 
function theorem to yield an equation in n. 

Consider 

G(x,y) = | L(x,y) 

We wish to determine if G(x,y) = H(x D y) = H(u(x,y)). 
The implicit function theorem states that this relation will hold 
if and only if 

dG a u _ a G ftu _ 

dx °y " ay ax ~ 

Note that this equation represents the Jacob ian in the two 
variable case. Since u(x,y)=x y, we obtain the following 
relationships : 
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n n-1 _ 
£G x - nSGx y=0 

QX By 



n = x -"- 



^G 

y 

y dy 

If n is known, we can determine whether the above relationships 
holds. However we can also use this relationship to generate a 
value for n. If the right hand side of the last equation is a 
constant than a substitution with n as that value is possible. If 
it is not a constant, the method is inapplicable. 

Notes 

This method is a generalization of the homogeneous case 
(Method 5). The method is rarely described although it accounts 
for many of the substitutions in the first 367 equations in 

Kamke [3CJ . In some of these cases Kamke prefers to give other 

2 3 
methods of solution. For example, in (I 293)x(y -3x)y'+2y -5xy=0, 

9 7 1 f\ 

Kamke suggests dividing by x y instead of substituting 

- 1/2 
u(x,y) = x y. 

In this method we resorted to a special purpose matching 

rule instead of using SCHATCHEN. The use of the implicit function 

theorem was suggested by Engelman. In this case the theorem 

fits the situation beautifully. However one will probably have 

to make some assumptions to recognize forms such as 

c a b 

f(x y) (bxy'-a) = x y (xy' + cy) 

In order to perform the integration, y in G(x,y) is replaced 

u 
by — . It is then hoped that SCHVUOS can rid the resulting 
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expression of all occurrences of x. 

Examples (see appendix E for further discussion of these examples) 



1) (x-x y) y'-y = 






becomes 






du - 1 dx = 






tt5 " 








2) xy ' + y log e x - y log^ - 


y = 





becomes 






du = dx 






/ , ... .. ,A x 





In Appendix E we describe an experiment in which SOLDIER was 
asked to solve 76 differential equations selected from a college 
text. SOLDIER was able to completely solve 67 of these problems 
with an average time on the order of 5 records. An analysis of 
the problems it failed to solve and steps taken to improve SOLDIER'S 
performance on some of these problems is also given in Appendix E. 

We would also like to mention the existence of a program 
which solves linear differential equations of any order with con- 
stant coefficients (see Engelman [36]). It was written by Ernst 
for the MATHLAB system. It utilizes the Laplace Transform method 
for solving such equations. The program makes use of the rational 
function package of the MATHLAB System. 

Some methods which were not described above should be pointed 
out. There are many special cases of integrating factors which 
can be considered. In particular, one method guesses the form 
of the integrating factor to be x y , substitutes that form 
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into the equation and solves the linear equations in the parameters 
that result after setting up the conditions for exactness (i.e., 

■~- (|iM) = -2- (yN)). If the system of equations can be satisfied, 
then Method 3 (Exact) is applied. If the differential equation con- 
tains a subexpression which is irrational in both a and y (e.g., 

2 2 
sin (x + y )), then it might be useful to substitute for some part 

2 2 
of this subexpression (e.g., u = x +y ) . One can also attempt to 

switch the independent and dependent variables. Such a change would 

be useful in 

2 . v 
(xy + x ) y + e J = 



since it leads to the Bernoulli differential equation 
e y x' + xy + x =0 



There is a large body of knowledge regarding RLcatti and Abelian 

2 3 2 

equations (i.e., y' =f(x)y + g(x)y+ h(x), and y'=f(x)y +g(x)y + 

h(x)y+k(y)). These methods, however, frequently rely on knowing 
one or more particular solutions to the differential equation. 
Information regarding methods applicable to Ricatti and Abelian 
equations and to more general differential equations can be found 
in Kamke. Kamke also contains a table of about 1250 equations 
whose solution is frequently given in some detail. 

As is pointed out in Appendix A, a great deal of the informa- 
tion about differential equations could be stored in tables and 
searched by computers. If we presume that a continual effort 
will be made to generate a library of programs and tables for 
differential equations, then programs will become a formidable 
tools for solving these problems. 



CHAPTER 7 
CONCLUSIONS AND SUGGESTIONS FOR FURTHER WORK 

The Performance of SIN 

We believe that SIN is capable of solving integration problems as 
difficult as ones found in the largest tables. The principal weakness 
of SIN in relation to these tables is in cases of integrands which con- 
tain variable exponents and which usually result in solutions which are 
iterated integrals. Edge can solve some of these integrals (e.g., 
Jx cos x dx) since it contains special checks for variable exponents. 
However none of SIN's methods in stage 2 are able to obtain such iterated 
integrals. The experiment reported in Appendix D also showed SIN's 
weakness in handling certain algebraic integrands. On the other hand 
the power of MATHLAB's rational function package means that SIN is able 
to integrate many problems not present in the tables. Decision proce- 
dures for cases such as the Chebyschev integrals give SIN a capability 
which is not present in most tables. 

SIN appears to us to be faster and more powerful than SAINT. The 
added power of SIN is principally due to the additional methods that SIN 
possesses. The additional speed is gained by the change in the organi- 
zation of SAINT and by the use of tighter progress requirements. In 
Appendix C we pointed out that though SIN can solve problems solved by 
SAINT two orders and frequently three orders of magnitude faster than 
SAINT, that this figure is deceptive. It is probable that under optimal 
conditions for SAINT and SIN these figures will reduce dramatically so 
that the gain in speed will average to about a factor of three. In 
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cases where the Derivative -divides routine is successful in solving a 
problem (about half the time), the ratio should be much higher. The 
average will be lowered by the increased effort spent on algebraic mani- 
pulation on the other problems. SZN's simplifier SCHVUOS, is probably 
a good deal slower (but more powerful) than SAINT' 8 hand-coded simpli- 
fier. This factor affects the cost of most of the other processes such 
as differentiation and matching. 

On the Organization of SIN 

Instead of describing the organization of SIN at this point, we 
would like to indicate certain aspects of this organization which arise 
out of the discussion in Chapter 4. The reader is referred back to 
Chapter 2 for an outline of SIN's organization. 

One of the difficulties that AI programs will increasingly face 
involves communication (see Newell [ 46 ])• If a subroutine performs 
an analysis of a problem then its analysis must be communicated to its 
parent routine in such a manner that the parent routine can easily 
understand the information. If two subroutines are working in parallel, 
one may need to know what the other one is doing in order to perform 
efficiently. An example of the usefulness of the latter type of commu- 
nication was pointed out in Chapter 4 in the section in which we described 

r x 4 

SAINT's solution of JTJ"~3 — 2TF77 <**• Here ic was noted that in one of 
the subproblems SAlNT should not have performed the substitution 
y - tanrx since another trigonometric substitution on the problem had 
already been made which was undoubtedly superior. In this case SAINT 
did not seek out the necessary information. A similar difficulty arose 
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when SAINI's methods could have performed transformations which were 

the Inverse of previous transformations. This occurs In the method 

which substitutes ~ " * for tanx, since this method may later substi- 
cos x 

tute for sin x. In this case SAINT did communicate the existence 

sec x 

of the previous transformation. While we do not wish to minimize the 
need for explicit communication in complex problem solving programs, 
we do want to point out the usefulness of highly implicit communication 
in certain situations. If a parent routine knows enough about the oper- 
ation of its subroutines, then it is not necessary to communicate a 
great deal of information, the parent routine can determine what has 
probably occurred with just a few key works of exchange. We think that 
such Implicit communication occurs when FORM finds excuses for the 
failure of its methods to solve certain problems. In fact in these cases 
the methods are not aware of the situation as much as FORM is. SIN will 
not attempt the tanrx transformation if another trigonometric transfor- 
mation is possible since this choice was built into the program. Similar 
remarks hold for the trigonometric identity transformation. What these 
examples appear to point out is that when one is able to centralize con- 
trol in a routine which has sufficient understanding of a task, then the 
communication requirements in the program are markedly reduced. 

We noted in the discussion in Chapters 2 and 4 that SIN employs 
tighter progress constraints than does SAINT. This implies that there 
may be some problems which SIN will not attempt to handle though it has 

sufficient machinery for solving them. (On the other hand, we believe 

Is in x 
that SAINT will attempt to solve J dx until it runs out of time or 

space.) We are not particularly worried by, such occurrences. It appears 
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to us that it is more important at present that a program have a good 
understanding of what it is able to do rather than that it have a medi- 
ocre understanding and be able to solve more problems. If one desired 
to increase the power of SIN we would wish that he spend the effort on 
improving the analysis done by FORM rather than that he spend it on in- 
creasing the search in FORM. We understand, of course, that it is not 
always possible to take this approach. The domain of nonlinear differ- 
ential equations is a good example of such a situation. 

On the Organization of SOLDIER 

We noted in the Introduction that we did not expect to find a con- 
cept as powerful as the Edge heuristic in the domain of first-order, 
first-degree ordinary differential equations. Thus we were not surprised 
to fail to find a practical method similar to Edge. In fact the most 
notable aspect of SIN' 8 organization that we carried over was the reli- 
ance on tight progress constraints. It seems to us that human analysis 
of this problem domain also employs tight progress constraints in the 
solution methods . 

Let us recall from Chapter 6 that SOLDIER employs eight solution 
methods. These methods are attempted one at a time. If a method decides 
that it is able to make a simplifying transformation (i.e., a direct re- 
duction to integration or a reduction to a known and simpler differential 
equation form), then it will attempt it, and the result of the transfor- 
mation will be the value of SOLDIER. Otherwise the next method will be 
considered. 

In Appendix E we tested SOLDIER on some problems given in a differ- 
ential equations text. SOLDIER was able to solve 67 out of 76 of these 
problems. We do not believe that one should conclude from this perfor- 
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mance that SOLDIER is far removed from being as powerful a differential 
equation solver as expert humans are. We think that if the improvements 
and extensions to SOLDIER that we suggest in Chapter 6 and below are made 
then SOLDIER will be a powerful program indeed. We were disappointed 
when we recognized this to be the case. The reason for it is that mathe- 
maticians have not made great advances in this problem domain over the 
past three hundred years. 

On the Applications of LISP 

Unfortunately, and mainly wrongly, LISP has acquired the reputation 
of being a language with very low execution speed. One factor leading 
to this reputation is the slow speed of arithmetic in most LISP imple- 
mentations. (The Hawkinson-Yates system for the 7090 is an exception.) 
Yet when one declares variables to be fixed or floating it is possible 
for LISP to execute arithmetic statements as well as any other processor. 
It is the convenience of mixed data types (during execution) which forces 
the slow, interpretive execution speed of arithmetic operations in LISP. 
Another factor leading to this reputation is that old and famous programs 
such as SAINT ran interpretively. Compilation usually results in approx- 
imately a twenty fold gain in speed. However the largest factor leading 
to this reputation is due to the attitude of the LISP programmers. LISP 
programs were usually developed in research projects where speed was only 
a minor consideration. (It is safe to say that many impressive programs 
such as Bobrow's STUDENT [ 4 ], Evans' ANALOGY and Slagle's SAINT could 
not have been written as doctoral dissertations except in LISP.) The 
trend in the recent past has been toward using LISP as a practical language 
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for projects with real time constraints on response. For example the 
MATHLAB system of Engelman and the robot projects at MIT and STANFORD 
have such real time constraints. It is thus important to recognize 
that LISP programs can be written which are relatively fast provided 
that one takes speed into consideration in designing the programs. It 
is our hope that SIN can serve as a model for this lesson and remove 
some of the stigma attached to LISP. It is far too easy to write LISP 
programs which execute slowly if one becomes beguiled by the ease of 
using LISP's recursive mechanisms. SAINT 's pattern matching program 
Elinst was far too recursive to run efficiently. However it was a much 
smaller program thereby and this factor was crucial in the implementation 
of SAINT. The rational function package used in SIN runs slowly when 
parameters are introduced into a rational function. While such a de- 
crease in speed is inherent in the task, it is also due to the extensive 
utilization of the recursive nature of the LISP list structure in the 
representation of rational functions. A special purpose representation 
of rational functions such as used in Brown's ALPAK [ 6 ] or Collins' 
PM system [ 12 ] should increase the speed of the rational function pack- 
age by one to two orders of magnitude. 
On the Teaching of Integral Calculus 

We would like to see the introduction into first year calculus 
courses of the concepts underlying the Edge heuristic and the Liouville 
Theory. Besides giving the student a very powerful integration method, 
such a study might acquaint him with practical applications of notions 
derived from modern logic such as Godel numbering or decidable problem 

r x 2 

domains. Such a course might also indicate why Je dx is not an ele- 
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mentary function rather than leave such a statement without proof. The 
relationship of the Edge heuristic and the problem solving technique of 
guessing could reasonably be emphasized in courses aimed at a more prac- 
tical foundation. 

Improvements and Extensions to SIN and SOLDIER 

All the programs discussed in this thesis would profit by being 
rewritten for the LISP system of the MAC PDP-6. The PDP-6 LISP system 
executes about three times as fast as the 7094 LISP system on compiled 
function and even faster on interpreted ones. This is due to the im- 
proved instruction set of the PDP-6 and to improved system' s programming 
rather than an increase in the machine speed. The MAC PDP-6 also has 
256 K of memory which would mean that all the routines could certainly 
be loaded at one time. This would allow greater interchange between 
SIN and SOLDIER and the rational function package. It would allow 
SIN and SOLDIER to be used as subroutines to the MATHLAB system of Engel- 
man. The excellent scope output routines of Martin [ 37 ] are available 
on the PDP-6 as are teletype output routines written by Millen for the 
MATHLAB System [ 40]. Routines which accept FORTRAN-like (i.e., infix) 
notation for algebraic expressions are available and should be used in- 
stead of the LISP (i.e., prefix) notation which is now used in inputs to 
SIN and SOLDIER. Anderson of Harvard University is currently working on 
a program which permits hand written input of algebraic expressions from 
a Rand Tablet [ 1 ]. Such a program could be used in the future as well. 

SCHATCHEN should be rewritten so that new modes can be defined by 
the user without reprogramming relevant sections of SCHATCHEN. The 
simplifier SCHVUOS served us well while we required a small simplifier. 
However a new, more powerful and efficient simplifier written along the 
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lines indicated in Chapter 3 should be used. As is clear from Chapter 6 
and Appendix E this simplifier should have factoring and division capabi- 
lities not currently available in general purpose simplifiers. The task 
of matching expressions for identity should be performed by a program such 
as Martin's matching program rather than by SCHATCHEN [37]. 

SIN's second stage would profit from a better handling of algebraic 
integrands. This is clear from Appendix D. Another lesson learned in 
that appendix is the usefulness of a capability whereby the user can com- 
municate with FORM and some of the methods used in SIN in order to intro- 
duce new functions such as the error function. A table of integrals invol- 
ving the error function which contains 145 entries was computed by Maurer 
in 1958 [ 38 ] . Such a table should be computable by SIN as well. 

It is clear that much more work needs to be done on the Edge heuris- 
tic both as a method for solving integration problems and as a possible 
tool for teaching freshman calculus students. We understand that Risch 
is currently programming his method of integration using the rational 
function package. Such a program could be included in SIN's third stage 
as well. 

In discussing SOLDIER in Chapter 6 we noted that a great number of 
methods are known which have not yet been programmed. An interesting 
project is involved in finding particular solutions to differential equa- 
tions. Such solutions can be used to find general solutions to Ricatti 
differential equations. In Appendix E we noted that the output of SOLDIER 
rarely conforms with the form of the text books' output. Another project 
would be to devise a routine which translates SOLDIER' s output to conform 
with the implicit conventions used in text books. 
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We believe that if work is continued on the implementation of new 
methods for SOLDIER, then this program will become a truly formidable 
tool in solving ordinary differential equations. In fact a program such 
as SOLDIER can become an active competitor with text books or journal 
articles as a medium for the permanent storage of knowledge about methods 
of solution. 

On a Mathematical Laboratory 

In a forthcoming monograph by Martin and Moses the concept of a math- 
ematical laboratory will be introduced. In a mathematical laboratory a 
user will be able to solve symbolic problems in mathematics. A mathema- 
tical laboratory is envisioned to consist of two major components, a 
general purpose system and a set of specialized programs. The general 
purpose system will deal with input and output and will provide a 
command-oriented language with many capabilities. The specialized 
programs will deal with tasks which are sufficiently complex to require 
a separate organization. SIN and SOLDIER are prototypes of such special- 
ized programs. Specialized programs will in the future employ a set of 
rather general routines such as a pattern directed language similar to 
SCHATCHEN or a simplifier such as SCHVUOS. These frequently used routines 
will form a data base from which new specialized programs will be more 
easily written in the future. Work is proceeding in this country on all 
aspects of such a mathematical laboratory, but we shall concentrate our 
discussion on the specialized programs. In a recent thesis [ 28 J , Itur- 
riaga has written a program in FORMULA ALGOL for finding limits of expres- 
sions and for determining whether one expression is greater in value than 
another over some domain. This work represents an extension of work on 
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limits performed by Fenichel [ 19 ] . No work has been done to our know- 
ledge, on finding sums of infinite series. Jolley provides a table of 
such series [ 29 ] . Nor has any significant work been done on definite 
integration. Bierens de Haan's monumental work on this area can be 
consulted [ 24 ] . In both of these cases one might at first utilize a 
table look up as described in Appendix A. 

Leaving aside the area of analysis we note that Maurer [ 39 ] and 
Mcintosh [ 57 ] reported on systems which deal with finite groups. Some 
routines have also been written for solving specialized tasks in topology. 
In fact a new theorem in topology was proved as a result of experiments 
performed by such programs [ 50 ] . Likewise specialized programs in com- 
binatorics have been written [ 16 ] . Such programs should be expanded 
upon, systematized, and made available as part of a larger symbolic mani- 
pulation system in pure mathematics. 

Along with the need for practical work in algebraic manipulation 
there is a need for parallel work on theoretical results. Collins' study 
of the Greatest Common Divisor algorithm led to a major imporvement of 
the Euclidean GCD method [ 13 ] . Similar studies are needed of methods 
for factoring polynomials, especially over extensions of the ring of in- 
tegers. We need a study of the degree of growth of the results of certain 
algebraic transformations. We should have examples of very bad problems. 
In [ 42 ] we present such a problem in the domain of polynomial equations. 
Recursively unsolvable results such as those in Appendix B point out cer- 
tain difficulties in algebraic manipulation. Proofs of the decidability 
of certain subcases such as in Richardson [ 52], Caviness [ 9 ], Brown [7], 
Risch [ 53] , and Tobey [ 63] are useful also and these may in turn lead to 
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programs which implement the decision procedures used. 

On Artificial Intelligence 

In the area of Artificial Intelligence we would applaud all projects 
which required and utilized a large base of specialized knowledge. Robot 
projects are examples of such projects. On a less ambitious level we 
would like to note that it might be useful to develop a program which 
solves word problems in the calculus. Such a program would counter, (if 
only temporarily!) the objections of those who claim that the semantic 
approach of Bobrow cannot be extended. One approach toward this problem 
would be to construct several methods of solution (e.g., "rate" problems 
of several types) . Then the program would use local clues (probably key 
word analysis as in Weizenbaum's Eliza [ 66 ] will do) to determine which 
solution method is appropriate. Then the method ^chosen should guide the 
program in extracting the information from the problem statement necessary 
for a complete solution. 

It would also be interesting to have some work leading toward a 
program which solves multiple choice questions on the level of the MAA 
high school prize examinations. Let us consider a typical problem. 

"At what time between 4 and 5 EM are the hands of the clock exactly 
opposite each other?" 

If the program knows that the answer involves the denominator of 11 
and one such answer is presented, then it should guess that answer. If 
only one answer involves a denominator of 11 and is moreover between 4:50 
and 4:55 EM, the program should guess it. These guesses would be made at 
stage 1 of the program. 
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If stage 1 is not effective but if the program knows the method of 
solution (a linear equation), then it should solve the equation. This 
would be done at stage 2 of the program. 

If neither of these stages is appropriate, then the program must 
obtain an analysis of this situation. Such an analysis is presently 
beyond the capabilities of AI programs, but not grossly beyond these 
capabilities. 

Presumably one of the methods available to this program is a rate 
problem solver. The statement of the problem does not immediately imply 
a rate problem but the knowledge that the minute hand and the hour hand 
travel at different rates could lend weight to such an hypothesis. Let 
x be the time in minutes past 4 o'clock at which the event occurs. Then 
the minute hand travelled x minutes between 4 o'clock and the occurrence 
of the event. The hour hand travelled ~ minutes during that time. How- 
ever the hour hand started with a 20 minute advantage and ended thirty 
minutes (one half a revolution) behind. Thus 

x = 20 + 30 + -j| 

600 _ .. 6 . „ 
x ■ ~tt - 54— minutes 

The solution above required the use of information about clocks 
and the relationship between clocks and circles. It also required a 
sophisticated word problem solver that was able to utilize this infor- 
mation to set up the linear equation. Another method of solving this 
problem relies somewhat more heavily on making inferences about diagrams. 
In either case it appears that a good deal of machinery is required for 
the analysis of this problem. Besides the word problem solver a program 
which makes inferences based on diagrams of plane figures is also useful. 
While such programs may not be sufficient in order to perform the analy- 
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sis of this problem, they certainly go a long way in that direction. 
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APPENDIX A 
ITALU - AN INTEGRAL TABLE LOOK - UP 

This appendix describes some experiments which were performed 
with an integral table look-up. Although a table look-up is 
probably inferior in the long run to an integration program with 
regard to power or speed, the techniques employed in this routine 
could be found useful in other areas of symbolic mathematics such 
as exact definite integration, summation of series, or differential 
equations. 

There are several ways in which one could search a table of 
integrals. There is the brute force approach. In this case each 
entry in the table is matched for equivalence with the expression 
to be integrated. This scheme is used in SIN's Derivative-divides 
routine. Such a scheme takes a long time when the table is large, 
of course. A better approach is to sort the entries in the table 
by the factors which appear in them (e.g., all entries with sin x 
as a factor are in one subtable). Thus when presented with 
sinxe , one checks all subtables for the one which contains sinx. 
In that subtable one checks for another part of the table which 
contains sinxe and there one presumably finds the entry desired. 
This approach would require that there be h! entries for an 
integrand with n factors (unless the expressions are canonically 
ordered). A table look-up along these lines was discussed in 
Klerer and May ^ 32 ^. 
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Besides being relatively slow these approaches are not sensitive 
to the fact that an integral table usually presents generalized forms 



of integrands (e.g., >Jax -H>x+c) and not just particular integrands, 
(e.g., >Jx +1). This is due to the presence of undetermined constants 
in the integrand. These constants are used as coefficients as in 
J sin(ax+b)dx or exponents as in Jx dx or |x sinxdx. The example 
J x sinxdx points out a further feature of the integral table, that 
is, the presence of iterated integrals in the table. A good integral 
table look-up should be required to make use of all of these features 
of the tables. 

An integral table look-up, called ITALU, was programmed to 
account for the features of the table just mentioned. It had the 
additional property of being relatively fast by making use of the 
technique of hash- coding. 

By carefully hash-coding the expression to be integrated one 
can expect to obtain a number which would correspond to relatively 
few expressions in the table. Furthermore the hash-code can be 
designed to account for the distinctive features of the table. The 
hash-coding scheme which was implemented ignored constants in sums 
and products. Thus sin (ax+b) coded the same as sin(2x), sin(x+2), 
sinx, and sin (3 jt x+5y+z) . The hash-code, moreover, was a floating- 
point number and the code of a sum was the sum of the codes of the 
terms in the sum, with a similar rule for products. Thus the code 
maintained the algebraic identities for sums and products. Hence 

X X 

sinxe coded like e sinx. In this manner we avoid the need for 
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a canonical form of an expression. One further feature of this 
coding scheme was that terms in a sum which had codes identical 

with those of previous terms were ignored. Thus sin (x+yx) 

2 2 

coded like sinx and x +2xy+3x coded like (2y+3) x + x and 

ax +bx+c. 

The coding scheme was obtained recursively. The variable of 

integration had a fixed code of 0.95532. Any trigonometric, 

arctrigonometric or logarithmic function had associated with it 

a fixed floating-point constant which generally was exponentiated 

by the code of its argument in order to obtain the code of the 

expression. Sums and products were treated as described above. 

Exponentiation was a relatively complex operator for the coding 

scheme. This is due to the frequent occurrence of exponents 

-2, -1, -r, — , 2 in the tables. When these exponents occurred the 

code for the base was raised to the exponent and the result was the 

code of the expression. Any other constant exponent was coded as 

1.43762 and the value of the subsequent exponentiation became the 

n 3a -4.5 

code. Thus x is coded like x or x or x . Fixed bases were 

X XX 

all coded alike. Thus e coded like 2 or y . 

An advantage of this coding scheme was that SCHATCHEN patterns 
could be coded easily as if they were expressions. This was due to 
the fact that the variables in the pattern were considered constants 
with respect to the variable of integration (assumed to be x 
throughout the table), and hence were ignored in sums and products 
and had a fixed value in exponents. Entries in the tables had 
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integrands which were SCHATCHEN patterns (e.g., sin ( /COEFFPT, 
NONZERO- AND- FREEOFX X+B /COEFFP, FREEOFX) . Thus the full matching 
capability of SCHATCHEN could be employed in order to obtain the 
values of the constants in the integral table entry. 

ITALU had an internal table of code numbers for the expressions 
in the table. This internal table was searched using a binary 
search (i.e., the codes were linearly ordered by their numerical 
values). Corresponding to each code in this table was the location 
on the disk where the integral table entry resided. Once a code was 
assigned to an expression, it was determined if an entry in the 
table had an identical code, and the file on the disk containing 
that entry (if any) was read. In order to conserve disk space 
several entries were on the same file, but these entries were 
associated with their codes so that the search of the file was 
linear but rapid. For each expression having the desired code 
(several are possible), SCHATCHEN was used to determine if there 
was a match between the pattern which represented the integrand in 
the table and the original expression. If no match was found, the 
next expression was examined, and so on until all the expressions 
with the appropriate code were examined. If a match was obtained, 
the integral was evaluated after making appropriate substitution for 
the result of the match. Thus the integral contained the values 
of the constants in the integrand. The device of evaluating the 
the integral allowed the integral to be a LISP function. In this 
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manner iterated integrals could be obtained. Hence the ITALU 
program satisfied the requirements of an integral table look-up 
that we considered above. 

The implementation of ITALU was carried through up to the 
point where all of the steps above had been implemented and the 
program was tested on several problems. The largest number of 
entries in the table was only ten at any given time, and thus 
the properties of the coding could not be fully assessed (e.g., 
one could not tell how frequently unrelated entries yielded the 
same code number) . The execution time of a call to ITALU was 
generally about 1 second. Most of this time was spent accessing 
and reading the disk. A set of routines were written for 
facilitating the addition of new entries to the table. However 
the description of each entry as a SCHATCHEN pattern with a 
corresponding integral was a fairly tedious job. A compact 
representation of the expressions in the table was obviously 
desirable, but was not implemented. 

Modifications to the hash code of ITALU were considered. 



P 



Under the current coding scheme vx +1 codes like x. One 
possibility is to ignore the value of constants in sums and 
products, but recognize their existence. Such a scheme would be 
useful in handling algebraic expressions. 

We also considered using a hash-coding scheme, such as 

[37] 
Martin's . Martin's hash codes are elements of finite 

fields rather than floating point numbers. Finite field 
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arithmetic is preferable when there is a risk of a floating-point 
overflow or a round-off error during the computation of the hash 
code. We felt that these difficulties could be ignored or easily 
overcome in the coding of expressions to be integrated. In order 
to account for round-off errors, we thus allowed for a variance 
of 1 xlO between the code of an expression and one in the table. 

In the domain of symbolic integration, a table look-up is 
probably not the best solution. Programs can now compete 
effectively in many cases with the tables with regard to speed 
and completeness. The situation in the future can only improve 
the relative position of the integration programs. Tables such 
as Petit Bois 1 with its 2500 entries contain many errors, 
some of which are serious (e.g., J log cosxdx ■ , [51] p. 150). 

However table look-up devices appear to have current 
usefulness in other areas of symbolic mathematics. Very little 

work is being done at present on summation of series and exact 

i fe9] 
definite integration. Tables in these areas exist - Jolley s 

[24] 
in summation and Bierens de Haan's monumental work on definite 

integration. For differential equations we reported solutions 

methods. in Chapter 6. However much still remains to be done, and 

tables could be used as long as programs have not caught up with 

£30] 
the full power of tables such as Kamke's . Tables could be 

extended to include a great deal of information besides exact 

solutions. For example, tables could be employed to obtain good 

numerical techniques for solution or references to papers on 
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particular cases. We should point out that some entries in a 
table would be hard to look-up in any reasonable way. For 
example, the entry xy'=yH(x y) properly deserves a special 
purpose program as was done in Chapter 6. Information about 
chemical compounds is currently being stored in tables which 
are searched by specialized techniques. Similar methods could 
be used in mathematics. The exact methods of ITALU are clearly 
not extendable to the other problem domains - special purpose 
programs should be used in each case. However the hash-coding 
technique coupled with the use of a matching program for 
increased power seem relevant to each of the areas considered. 



APPENDIX B 
RECURSIVELY UNSOLVABLE RESULTS IN INTEGRATION 

A recent theorem by Richardson [52] showed that the matching 
problem for a class of functions we shall call R- elementary is 
recursively unsolvable. This result is easily applied to show that 
the question of determining whether integrals of R-elementary functions 
possess R-elementary solutions (or elementary solutions in the sense 
of Liouville (Chapter 5)) is likewise recursively unsolvable. 
Richardson's result, announced January 1966, is probably the first 
theorem about recursively unsolvable problems in analysis and has 
aroused great interest in the field of algebraic manipulation. Refer- 
ences to it are made in Brown [7], Caviness [9], Fenichel [19], 
Moses [42], and Tobey [63]- 

There is, however, a feeling among some (e.g., Risch [53]) that 
Richardson's unsolvability result may be due to the fact that the 
integration problem he showed unsolvable is not well-posed. In this 
appendix we shall sketch Richardson's unsolvability proof and indicate 
points in the proof where some of this contention has arisen. We 
shall then present results of a similar nature to Richardson's which 
avoid these difficulties in the proof by extending the domain of the 
problem to nonlinear differential equations. These results are proved 
using similar techniques to Richardson's and were originally proved, 
interestingly enough, over a year before Richardson announced his proof. 
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In order to proceed we shall require the following definitions. 

The R-elementary functions are obtained by the operations of 
addition, multiplication, division and substitution upon real variables, 
x 1 , x„ , ..., x using the constants it, the rational numbers, log 2 , 
and the functions e , sin x, cos x, and log|x| 

The constant problem is to decide, given an R-elementary 
function f(x), whether f(0)-0. 

The identityf matching) problem is to decide, given an R- 
elementary function f(x), whether f(x)=0. 

The integration problem is to decide, given an R-elementary 
function f(x), whether there exists an R-elementary function g(x), 
such that g'(x)*f(x). 

Richardson first showed that the identity problem reduced to 
solving the constant problem. Thus, if one restricts the R- 
elementary function to a domain where the constant problem is pre- 
sumably solvable (e.g., by allowing only the rational operations), then 
the matching problem is likewise solvable. 

He then showed that the matching and integration problems for 
the R-elementary functions is recursively unsolvable. In order to 
proceed with our sketch of that proof, we shall require the following 
definitions. 

Hilbert's 10th Problem (The Diophantine Problem) 

Does there exist a procedure for determining whether the 
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equation P(x., x„ , ..., x )=0, where P is any polynomial with 
integer coefficients, has a solution where each x. is an integer? 

Exponential Diophantine Problem 

Does there exist a procedure for determining whether the 
equation P(x. , x , ..., x , x +1 )"0> where P is any polynomial with 

XI 

integer coefficients and where x . is replaced by 2 L , (i.e., 

X1 

P(x., .... x , 2 )=0) has a solution with each x. , i=l, ..., n an 
integer? 

Theorem (Davis, Putnam, Robinson) [14] 

The exponential diophantine problem is recursively unsolvable. 

The version of the Davis-Putnam-Robinson result that Richard- 
son used is as follows: 

xi 
Theorem A There exists a polynomial Q(y, x. , ..., x , 2 L ) such 

that the problem of determining whether for each integer value of y 

there exist integer solutions x. , . . . , x to the equation 

Q(y, x.., .... x , 2 1)=0, is recursively unsolvable. 

Hilbert's 10th problem has not yet been decided although it is 
suspected that the problem is recursively unsolvable as well. 

Let us now proceed with Richardson's argument. 

Consider the polynomial Q of Theorem 1. Let the x. be real 
numbers. Then, if the equation I 



n 



(I) Z sin «x. + Q (y, x , .... x , 2 l ) *> 

1=1 1 
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possesses real-valued solutions for an integer value of y, then the 

x. must be integers, and if Q possesses integer solutions, equation I 

certainly has real solutions. 

Note that since each term in I is real-valued, the 'sum of the 

squares" device forces each term to be zero. Since sinit x. = ** x . 

11 

is an integer, the x. must all be integers. This illustrates a con- 
cept we shall call forcing . Forcing will be frequently used in this 

n 2 

appendix. The term £ sin it x. forces Q to possess integer solu- 

i = l L 

tions . The use of n and sin x in this manner was foreshadowed by 

Tarski [61]. 

The next step is to show that there exists and R-elementary 
function f(y, x. , ..., x ) such that f(y, x.. , ..., x )< 1 for a given 
integer y and for some real x. if and only if Q(y, x*, x*, ..., 2 I )=0 
for some integer values of the x*, and for the same integer value of y. 

Richardson shows that we can take f(y, x. , ..., x ) to be of 
the form 



t n 2 4 2 xi ~1 

I sin nx.^ K. (y, x^ ..., x^) + Q (y, x^ ..., x n , 2 L ) 
i=l 1 - 1 



where A is a large R-elementary function of n and each K. is a 
suitably chosen large R-elementary function of its arguments. In this 
form f is an R-elementary function. The proof that f has the desired 
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property utilizes an argument based on the consideration that if f 
is sufficiently close to in value, let us suppose that 

f(y, x., jL, ... , x ) S 1, and let each x. be close to the integer, 

- - Xi 1 

x*. say, then Q(y, x^ x 2 , .... x n> 2 l ) < jrjs . What is desired is 

to force ^ to have the value at the x*. Since vj is continuous in 

its variables (it is a polynomial in them) and moreover has integer 

values for integer arguments (the coefficients are integers), what 

is necessary is that the derivative of ^ is sufficiently small so 

that Q does not materially change its value on the interval between 

x. and x*. For this purpose the K. which are based on the partial 

derivatives of Q are forced to be small as well. This is done by 

2 1 
requiring sin n x, K, S A?nS * 

Now Richardson shows that one can obtain a coding which re- 
duces the problem for the n variables x. of Q to a single variable 
x. He obtains a function G(y, x) such that G(y, x) < 1 for real 
x - (V 6>0)(G(y, x) < e) - a real x ± 
f(y, x , . .., x )S1 « q(y, x*, ..., x*, 2*1) « for some integers x*. 

The coding is 

X]L - h(x), x 2 - h(g(x)), x 3 - h(g(g(x))), ... 

3 
where h(x) = xsinx, g(x) ■ xsinx . 

Richardson now uses the log Ixl function to obtain a decision. 
Consider the following equations: 
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|xj » e I J thus the absolute value function is R-elementary. 
x-y - * I — **> this subtraction has value if y»x. 

Min(y.x) » y- (y-x) , the minimum function restricted to non- 
negative values. 

Now if 6(y,x) £ 1 for some real x and integer y, then 
G(y,x) < \ for some real x by the e case above, and for this x, 
2-2G(y,x) > 1 . Thus, min(l, 2-2G(y,x)) - 1 for some real x. If 
G(y,x) > 1 for all real x, then for all real x,min(l,2 i 2G(y,x)) - 0. 
By the continuity of G which is preserved either min(l, 2 i 2G(y,x))sl 
for some interval of values on the real axis for x and for a 
fixed integer value of y, or min(l, 2*2G(y,x)) = for all real x. 

Now if we let M(y,x) s min(i, 2 1 2G(y,x)), then the question of 
deciding whether M(y,x) is identically is equivalent to deciding 
whether Q(y, x^, ..., x , 2 1) ■ has integer solutions and is thus 
recursively unsolvable. M(y,x) , we note, is R-elementary. 

The above is a sketgh of the proof of the recursive unsolvability 
of the matching problem. The recursive unsolvability of the integra- 
tion problem is obtained as follows: 

Consider 

J M(y,x)e x dx 

If M = for some integer value of y, then the integrand is 
and possesses a solution (e.g., 0). If M* 1, on some interval then 
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2 
the integrand is equivalent to e x which possesses no elementary 

solution on any interval, as is well-known. Hence, the integration 
problem for R-elementary functions is unsolvable since one cannot 
tell whether M s 0. 

This completes the sketch of Richardson's proof. As was seen, 
the decision step in the matching problem necessitated the use of 
the absolute value function. Caviness argues that either the abso- 
lute value function or the constant it (used in sin n x and needed 
to assure a zero value on integer arguments) are the culprits in 
allowing Richardson's results to hold. The constant « should not 
be too surprising in the context since there are many problems re- 
lated to the constants e and it which are not yet solved (note 
irtx -inx 

ft — ft 

sin ji x = — ). For example, it is not known whether 

e+rt is a rational number. 

We should note that the absolute value function arose when we 
considered only one of the infinite number of inverses to the log 
function. For example we can obtain the absolute value function by 
considering Jyf to possess only one solution. If we were to 
evaluate each of the values of an R-elementary function and were to 
consider f (x) to be equivalent to if it were for each of its 
values, then one might obtain a more tractable problem. One would 
still be left with ticklish problems regarding the constants e and jt. 
These one might suppose are not very interesting from a practical 
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complex coefficients) if and only if p is an integer. 

Theorem 1 

The exponential diophantine problem (Theorem A) is equivalent 
to the problem of determining whether, for integer values of y, the 
system of differential equation S has particular solutions which 
are rational function in x. 

(Hence, the latter problem is recursively unsolvablej 

dp i 

dy i 9 PiCPt+1) 
(S) b) -^- + y 2 - 1 + -^ , i-1, . . . , n 



. dz . 2 . --_ 

c) — + z - 1 - 7 

dx ,,* 



4 2 <y. pi,---. p„. 2 p i) 



' n 



x' 



Proof . Suppose S has such a set of solutions for a given integer 
value of y. 

By a) each p is a constant. 

By b) and Theorem B each p is an integer. 

PI 
Q(y» ?i> •••» P n > 2 ) ™ by c) for y an integer. 

This is so since by a) and b) Q is a constant. Thus, for z to 

2 
have a particular solution which is a rational function, -Q -q(q+l) 

2 
for some integer q. But q(q+l) 2 for integers q and -Q £ since 

PI 
Q is integer valued. Thus, Q(y, p,, ..., p , 2 ) ■ for Integer 
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values of p . . . , p . 

Suppose Q did possess integer solutions c. for some integer 
value of y, then by fixing each p. to be the corresponding c., we 
obtain a set of rational solutions for S. 

Theorem B has a corollary which states that the differential 
equation II has a general solution which is a Liouville function if p 
is an integer. 

Theorem 1 can, therefore, be extended to show that the problem 
of determining whether systems of differential equations of the 
form S have solutions which are Liouville functions is recursively 
unsolvable . 

Let us consider the diophantine analogue of the system S (i.e., 
no exponentiation in Q) . We now have a system of polynomial equa- 
tions with integer coefficients. The solutions of such systems of 
equations is in the domain of differential algebra (see Kaplansky [31])' 
Theorem 1 leads to the result that Hilbert's 10th Problem reduces 
to a decision problem in differential algebra. 

Let us now consider the problem of determining whether a 
differential equation f(x, z, z', . .-, z ) = has a solution z (x) 
where z and all its indicated derivatives are real-valued functions 
of x. 

More precisely consider 
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, - (n) 
g(y, x, z , .. . , z 

( n )2 2 w l n 2 

z + Q (y , w- , w 2 , . . . , w , 2 ) + ,^ sin n w. 



In g, y is an integer, x is the independent variable and is 
real, z is the dependent variable and the w. are defined as follows: 



w 
n 




= 


z (n 
(n- 


-1) 

i): 








■1 


= 


z<" 


- 2 ). 


(n- 
• xz 


■1) 


w 
n- 




(n- 


■2)1 





, + x 2 z" + ^ , nfn -l) x(°- 1 ) z < n - 1 ) 
W l = z - xz' +-yr- + ... + (-1) (n _ 1); 

Theorem 2 The problem of deciding whether 
g(y, x, z, z', ..., z ) = o has a real-valued solution which 
possesses n real-valued derivatives is recursively unsolvable as 
y varies over the integers. 

Proof . Let y be fixed. 

Suppose g has such a real-valued solution z(x). Since we are 
dealing only with real-valued functions the term (z ) forces 
z =0 and thus z must be a polynomial of degree (n-1) at most. 

■n — 1 

Each w, was so chosen that if z = a n x + a_, then w. = a. p1 . Since 
1 n-l u i 1+1 
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sin ii w. =0, a. is forced to be an integer. Moreover, since 

w l 
Q (y , w. , w , ..., 2 ) = 0, Q must possess a set of integer solu- 
tions w . = a . , , . 
l l+l 

x l 
Suppose Q(y, x. , . .., x , 2 )=0 has solutions x.- a., 

a. integers. Then z (x) = a x + ... + a. is a solution to g=0. 

l n-1 



The statement of Theorem 2 is too general to make it a 
satisfying decision problem since the set of all real-valued 
functions with real derivatives is not computable. The theorem 
would hold for any computable superset of functions of the set of 
polynomials of degree n with integer coefficients. 

Theorem 2 seems to indicate the concept of a real-valued 
solution to a differential equation is quite elusive. 



APPENDIX C 



SIN'S PERFORMANCE ON SAINT'S PROBLEMS 



As an experiment for testing SIN's performance, we attempted the 
86 problems attempted by SAINT and reported in Slagle's thesis. SAINT 
integrated 84 our of these 86 problems and announced failure to integrate 
x /l + x and cos /x. Slagle reports that SAINT solved the 84 problems 
with an average time of 2.4 minutes (144 seconds). SIN solved all 86 
problems with an average time of 2.4 seconds. This average becomes 1.3 
seconds when one discounts the cost of chaining. Chaining occurred on 
22 our of the 86 problems. Chaining is considered to take 4.5 seconds 
in this accounting. That time appears to be a minimum bound for the 
operation. In order to determine the time required by SIN to solve a 
problem, we used the execution time reported by CTSS. The swap time in 
CTSS is ignored here. 

Over half of the 86 problems (more precisely 45) were completely 

solved by SIN's first stage. These problems were solved with an average 

time of 0.6 seconds. Of the remaining problems only two required the 

Integration-by-parts routine (i.e., x cos x and cos /x - the latter gene- 
ra 
rates the subproblemj2y cos y dy) . Two routines were added to SIN in 

order to solve the definite and double integrals among the 86 problems. 

These routines call SIN to perform the integrations indicated and make 

appropriate substitutions at the upper and lower bounds. 

Below we list problems for which SAINT results are available and 

the comparative results for SIN. 
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Problem 



SAINT time SIN time discount 

In seconds In seconds for chain Notes 



2 



Idx 



1.8 



0.20 



Fastest problem 
solved by SAINT, 
Integrated by table 
look up In IMSLN 



sec 2t At- 



1 + sec t - 3 tan t 



Jx. 



2 
sec x 



1080 



126 



9.18 4.6 Longest solution 
time in SAINT. 
9 subgoals in 
SAINT, 1 in SIN 



0.87 



7 subgoals in 
SAINT, 3 in SIN 



£+1 
/x 



dx 



102 



5.87 1.3 3 subgoals SAINT 
1 SIN 



/x z + 2x + 5 



dx 



960 



9.68 5.2 14 subgoals SAINT 
1 SIN 



sin x cos x dx 



120 



0.33 



(sin 2 x + l) 2 cos x dx 228 



2.48 



e dx 
1 + e x 



102 



0.28 



2 subgoals SAINT 
SIN 



2x 

e 

1 + e x 



dx 



222 



6.23 



1.7 



I - cos X 



dx 



it 
*3 



.tan x sec x dx 



120 



144 



9.78 5.3 



0.47 
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Problem 



SAINT time SIN time discount 

in seconds in seconds for chain Notes 



x log x dx 
e 

6 

sin x cos x dx 



x + 1 
/2x - x z 



dx 



2e 



2 + 3e 



2x 



dx 



(1 - *Wl ** 



6x 



4x , . 
e + 1 



dx 



log (2 + 3x )dx 
e 



132 
156 

576 

360 

660 
510 
390 



0.70 



0.30 



10.1 



8.25 



8.77 



7.92 



7.20 



Largest speed 
ratio between 
SIN and SAINT 

5.6 Longest solution 
in SIN. 

13 subgoals SAINT 
1 SIN 

3.7 4 subgoals S*AINT 
1 SIN 



4.3 13 subgoals SAINT 
2 SIN 



3.5 10 subgoals SAINT 
1 SIN 



2.7 10 subgoals SAINT 
1 SIN 



The last 3 problems were solved by SAINT in 540, 318 and 210 seconds 
respectively after an entry was added to SAINT's table which was used in 
the solution of these problems. 
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In order to fully account for the effect of garbage collection the 
problems were run in large batches. Thus garbage collection time was 
distributed over the set of problems. Garbage collection time probably 
accounts for less than 20$ of the total time in SIN. 

We should note some of the reasons for the time difference in the 
results of SAINT and SIN. SAINT was run on the 7090 and SIN on the 7094. 
This accounts for about 40$ of the gain (2.18 vs. 2.00 microseconds in 
the cycle time and overlapped instruction execution in the 7094). The 
single major difference in the time is due to the fact that SAINT ran 
mostly interpreted (a major exception being the simplif ier) , and SIN was 
run mostly compiled. Compilation is usually considered to gain a factor 
of 20-30 in the speed of the program. We tested some problems with SIN 
being executed completely interpretive ly. We noted an average speed loss 
of a factor of 15. However none of the problems which were run inter- 
pretively included problems which required chaining. Thus we were unable 
to run some of the more complex problems in the set interpretively. 

By taking these factors into account we note that SIN would only 
run about three times faster than SAINT on the average when both are 
executed under optimal conditions. The reason for the relatively small 
ratio in SIN's favor we believe is because most of the time spent in SIN 
in solving the harder problems in the set is spent in algebraic manipu- 
lations (e.g., simplifications). Algebraic manipulation in SIN is not 
materially faster than it is in SAINT. Though the analysis performed in 
SIN yields a very direct solution, the total time spent to obtain the 
solution is still significant. Hence the contrast with SAINT in regard 
to total solution time is not very great. 



APPENDIX D 

Solution of Problems Proposed by Mcintosh 

Professor Mcintosh (National Poleytechnic Institute of Mexico) 
required the solution of eleven nontrivial integration problems for 
a physics paper that he was writing . He found the solution to 
these problems in Petit Bois' table. He also asked us to solve 
these problems using SIN. The problems involved variable coefficients 
in a square root of a quadratic which the version of SIN current at 
that time was not equipped to handle. Although we had intended to 
add the variable coefficient capability to Method 5, it was not 
needed for the SAINT experiment described in Appendix C. We rewrote 
Method 5 to account for variable coefficients. Interestingly enough 
this was not sufficient for a satisfactory solution of the problems 
since Professor Mcintosh required that the output be in terms of 
the arcsin function. In some cases the transformations proposed 
by Method 5 yielded an answer in terms of the log function. To 
force the arcsin result a further method was added. Thus if the 
integral was of the form 



x v ax +bx+c 



dx 



the substitution y= — was made. This substitution rids the 
' x 

denominator of the factor x. With these modifications SIN was able 
to solve all eleven problems. In the solutions obtained by Mcintosh 
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we noted some discrepancies from solutions obtained by SIN. It 
should be noted, however, that Mcintosh was only interested in 
the coefficient of the arcsin terms and not in the argument. All 
the errors were minor and occurred only in the arguments of the 
arcsin function. 

Important lessons are to be obtained from this experiment. 
It is quite likely that other users of SIN will have similar 
requirements regarding the form of the output. SIN should there- 
fore be modified so that FORM can accept simple descriptions of new 
substitutions written, say, as a SCHATCHEN and REPLACE rule. 

An examination of the eleven problems will indicate that a 
great deal of SIN's machinery was involved in solving these 
problems. Thus it would appear that a program such as SIN is more 
useful than a special purpose integration routine written for 
solving just this set of problems. Such a special purpose program 
will require so much machinery as to make it uneconomical. 

Finally we should note that this experiment points out the need 
for further work on methods which transform algebraic integrands. 
The method we introduced to force the arcsin result also decreased 
the labor involved in the solution and should be normally available 
in SIN. 
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Mcintosh Problems 

Problem Constraints Answer equivalent to 

r d * i a 

X > K /2W 1 -<# H >° -a arC8in /2ir 



r dr „ n -1 . Vet 2 + e 2 

3) lu>-j-us h2>2A »- Ml, ^tf-"^ 



r . d - r - 



4) j. jzzrrjrr?~rz? 



H 2 > 2C* 2 + e 2 ) K .- 1 . arcsin f)' 2 ^V^' - 



2 ycT + e' 

5) J . dr , =- K 2 + ZHO 2 > J arcsin .j*" .- 

r/2Hr— cT - 2Kr a r/ IT + 2HdT 

6) J-^T 



dr 



rjl&r* - a* - 6* - 2Kr 



7) 


r dr 
J Jl&x - or 




8) 


(" r dr 




" /2Er Z - Ct 2 - 


e 2 



9 2 2 1 -Kr - Cor + e ) 
K + 2 (a + e )H > } k a arcsin : ... . ■ 

v/cT + e z r ^T + 2(QT+e z )H 



± /2Er 2 - (a 2 + e 2 ) 
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Problems 



Constraints 



Answer equivalent to 



9) 



r dr 



^2Er 2 r a 1 - 2Kr 4 



2 2 

E > 2Ka 



1 . 2K r - E 

TFtv arcsln r, jT~ 
^^ 7e 2 - 2Ka 



10) 



r dr 



V^" 



a z - e z - 2Kr* 



2 2 2 

E > 2K(a + e ) 

K > 



1 . 2 Kr - E 

T7W arcsin 



7e 2 - 2K(a + e ) 



11) 



r dr 



y^ 2-2 " 



E < 



a - 2Kr 



J: 



2 2 
2Er - a - 2Kr 

2E 



_L 



2HE /-2E 



arcsin 



2Er + K 
•/k 2 - 2Ea Z 



APPENDIX E 



AN EXPERIMENT WITH SOLDIER 



As an experiment for testing the effectiveness of the 
differential equations routines we attempted to solve the review 
problems appearing in pages 54-56 of "Applied Differential Equations" 
by Spiegel [60J- This text was chosen for sentimental reasons since 
it was the book through which we first learned methods for solving 
ordinary differential equations. The methods described in Chapter 6 
were mostly influenced by Ince's "Integration of Ordinary Differential 
Equations" [27], and Kamke's "Differentialgleichungen" [30]. As 
it turns out the methods in Spiegel were quite similar, which is not 
a surprising fact. However, there were some differences and these 
will be pointed out below. 

Briefly, the results of the experiment were as follows: Of the 
80 problems in pages 54-56 of the book, 4 involved second and higher 
order equations (i.e., y", y'"). These problems were not attempted 
since SOLDIER had no machinery to deal with them. Thus the number of 
problems actually attempted was 76. Of the 76, SOLDIER satisfactorily 
solved 67 problems with an average time of 6.6 seconds. Discounting 
the cost incurred by chaining (chaining occurred on 26 of these 66 
problems), the average time was 4.3 seconds. Two problems were com- 
pletely reduced to integration problems, but were not integrated by 
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Ji«Sg^»jT«*! 
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problems were not solved at all. An examination of the result re- 
ported by SOLDIER for one of the problems (i.e., 51) Indicated a 
misprint in the book. As before, our timing information is based 
on the report by CTSS of the execution time of the program. 

The system on which this experiment was carried out had the 
following characteristics: SCHATCHEN, SCHVUOS, FORM, REPLACE, SOLDIER, 
and all the solution methods for differential equations were com- 
piled. A few integration methods, especially the Derivative-divides 
method, were also compiled. The rest of the integration methods were 
run interpretively. This accounted for a noticeable increase in 
solution time when one of the integration subproblems required a 
solution method in stage 2 or 3 of SIN. As was the case in the ex- 
periment reported in Appendix C, the 76 problems were attempted in 
large batches (about 15 at a time) so that the effects due to garbage 
collection were fully considered. 

Below we shall describe on the performance of SOLDIER on some 
of the more interesting fully solved problems. We shall then describe 
each of the 9 problems which it failed to solve fully. 
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Representative Solved Problems 

The largest number of integrations needed to solve one of the 
67 problems was 3. This was achieved by problem 69 among others. 

(69) (e y +x+3)y' =1 or (e Y +x+3)dy - dx = 

This problem is solved by one of the multiplier methods (Chap- 
ter 6, Method 3) 



^- (e y +x+3) = 1 
ox 



h <-» ■ ° 



-— (1-0) = -1, and -1 is a function of y. 



Thus the first integral is 



J -1 dy = -3 



- y 

The multiplier is e resulting in the exact equation 



(l+xe~ y +3e~ y )dy - e" y dx = 



The second integral is 

c ~y ~y 

-e dx = -xe , 
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and the final integral is 



J (l+3e" y )dy = y-3e~ y 



The solution reported by SOLDIER is thus 



Co = -xe" y -3e" y +y 



The solution in Spiegel is 



y y 

x = ye -3+ce . 



This solution is equivalent to the one obtained by SOLDIER. 
This problem was solved in 5.2 seconds. 

The most complex solution was obtained as a result to prob- 
lem 73. 



(73) dy_ = 2<±3y 

K ' dx x-3y 



This homogeneous problem required the solution of 



? du 

J u^EST 
l-3u 



The final solution given by SOLDIER was 
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2 

log x + ilog (l+3^«r + 2 Z ) - Jl arc tan f-i + -&■ ) = Co 

e " e x z x V,/2 V2x / 



The solution in Spiegel was 



log (x +2xy+3y ) = 2^/2 arc tan i — TT~j + c 



This problem was solved in 15.3 seconds and required a chain 
to the rational function package. 

The problem in which we discovered a misprint in the book's 
solution was problem 51. 

(51) y' = 3x+2y or y'-3x-2y = 

The problem is linear (Chapter b , Method 1) and the first 
integral required is 

1 -2dx = -2x 

The next integral is 



-2x, / 3 , 3 \ -2x 

-3x e dx = I r + — x)e 



The final answer given by SOLDIER was 



-2x /3 3 N -2x 
Co = ye + [^ + - xje 
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The book's solution was 



-2x 3 3 

y = c e - -x- £ 



This solution differed from SOLDIER's in that the sign of 

c " 2x • 

the exponent of e is wrong. 

The answer was obtained in 9.0 seconds and required a chain 
to solve the second integral. 

The fastest solution time was obtained for problem 5. 



(5) (3-y)dx + 2xdy = 0, y(l) = 1 

This problem is also linear. 
The first integral is 



f 1 , 1 , 
r _dx = T log e X 



The next integral (after simplifying e °8 e x =/ -— ) ± s 



7x 



3 a 3 

dx ~ 



2x 3/2 



The final result is 

Co = / - ^ 

V x v' x 
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The book's solution is 

(3-y) 2 = 4x 

which is equivalent ot SOLDIER's except that the constant of 
integration was determined by using the initial condition. 
This problem was solved in 0.8 seconds. 
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The Nine Unsolved Problems 

Problems 48 and 75 were not solved primarily because SOLDIER 
had no machinery for factoring them. In these two 



a 2 2 

(48) ^a = e e p -q 

dp q 



(75) e 2x - y dy + e y " 2x dy = 

problems what is needed is to recognize that e a = e a e . A 
powerful factoring routine would have yielded the result that both 
of these problems are separable. 

Problem 50 is also recognized to be separable 

(50) (x+xcosy)dy - (y+ sin y)dx = 

if one factors x+xcosy. When SOLDIER solved this problem it utilized 
one of the multiplier methods. 

The difficulties due to the lack of a general factoring or 
division routine which was pointed out in Chapter 6 is one of the 
outstanding problems which must be solved in order to achieve a 
powerful routine for solving differential equations. The rational 
function package which is not directly utilized by SOLDIER can 
factor polynomials and some more general expressions (e.g., x+xcosy 
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could be factored by it), however, it must be extended in order to 
recognize factorizations involving exponentials and logs. 

A similar difficulty to factoring faced the program in 
problem 65. 

(65) xy' + ylog g x = ylog g y + y 

This problem is easily solved by the homogeneous method if it 
is first transformed into 

xy 1 - ylog g £ - y 

SOLDIER does not possess enough machinery to realize that this 
transformation can be effected. Method 8 of Chapter 6 which normally 
would have solved problem 65 without the log transformation failed 
because SCHVUOS could not simplify a quotient which arose in the 
course of the solution. 

Problems 47 and 64 were not solved because SOLDIER lacked a 
method given in Spiegel. 

2 
(47) xdy - ydx - x ydy 



2 2 
(64) xdy - ydx ■ 2x y dy 



Spiegel suggested that one should watch out for frequently 
occurring combinations such as xdy+ydx or xdy-ydx. He gave a method 
which deals with some of these cases. In 47 he points out that by 
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dividing by x one obtains the derivative of £ on the left hand 

2 
side and ydy on the right hand side. In 64 one obtains 2y dy on the 

right hand side and once again the derivative of £ on the left 
hand side. SOLDIER lacked this particular method and was unable to 
solve these problems. Once again Method 8 of Chapter 6 was applicable 
and did not find a solution due to problems in division. 

Another method lacking in the program is pointed out by prob- 
lem 57 . 



(57) ^i- -i- 

V3/; dt s+t+1 



Hera the linear substitution u(t) - s+t+1 would have left a 
separable equation. Also a reversal of the independent variable 
followed by multiplying out the denominator would have left the 
equation 

P- - s+t+1 
ds 

which is linear. The method of multiplying out the denominator is 
also useful in problem 17. 



<i7) '"-.HS^ 



SOLDIER solved 17 by dividing through the denominator and using the 
Bernoulli method. By multiplying out the denominator, the multiplier 
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method would solve the problem. 

Problem 22 was not solved by SOLDIER because the almost- 
linear method Is not powerful enough. 



2 2 

(22) (tan y - tan y cos x)dx - xsec y dy = 



The substitution u(x)«tan(y) results in the equation 

2 
(u-u cos x)dx - x du = 

which is Bernoulli. However, the almost-linear method checks only 
for the possibility that the resulting equation is linear and com- 
pletely misses the possibility that it is Bernoulli. 

Finally, two problems, 56 and 74, were not completely solved 
because SIN did not have powerful enough machinery. 



(56) 7^ + 31 = lOsin t 

at 



(74) y'cos x = y - sin2x 

In 56 the linear method generates the subproblem 
3t . 



J -lOe sin t dt 



Without the Edge heuristic, SIN cannot integrate this problem. 
There was not enough room in the system to include the Edge heuristic 
(only 1500 words were left in free storage), so SIN failed to 
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integrate this problem. 

SIN failed to handle the integration problems needed in 74 
because it does not currently possess enough machinery for dealing 
with sin(2x) and cos (x) in the same integrand. As has been indi- 
cated in Chapter 4 some machinery for just this situation was 
designed but not fully implemented. 
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Modifications to SOLDIER 

Following the experiment reported above we made two changes 
to the methods employed by SOLDIER. First we added a simple factori- 
zation routine to Method 8 of Chapter 6. With this routine Method 8 
was able to solve problems 47, 64, and 65, as expected. 

In addition we added an indicator to SCHVUOS. When this 
indicator was on, SCHVUOS executed the rule e -• e e . This 
indicator was turned on in running Method 2 of Chapter 6 (Separable). 
Thus, problems 48 and 75 were solved as well. The use of indicators 
illustrates the approach toward simplification programs we had out- 
lined in Chapter 3. In that chapter we said that simplifiers should 
be considered as black boxes with strings attached. When a decision 
has to be made inside the simplification program, it can check to 
see whether it had been given an instruction regarding the choice to 
be made. 

These changes must be considered as stop-gap measures and not 
as solutions to the factoring problems which still remain in SOLDIER. 



APPENDIX F 



LISTINGS 



The listings of SIN and SOLDIER given below were produced by a LISP 
program written by Diffie of the MATHLAB project and modified by us. 
Listings of LISP programs are frequently printed by using the internal 
representation of the program. The listings of programs written in most 
other languages usually bear a close correspondence to the input form of 
the program. This need not be the case for LISP programs. The routine 
Edge which was not listed using Diffie 's program is presented last. The 
listing of this routine may be used to guage the effect of Diffie 's pro- 
gram. 

The listings of two recent LISP programs (i.e., Martin [37 ], Nor- 
ton [ 47]) are also available. One can use these listings to compare 
different styles of LISP programming. Norton accentuates the use of the 
PROG feature and his programs thus have a FORTRAN- like appearance. Mar- 
tin's style is richer and leans toward greater use of "pure" LISP. Our 
style is intermediate to these two styles. 
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SCHATCHEN 



DEFINE 
(USCHATChEN M2) 

(M2 (LAMBDA' (E P SPLIST) 
(PRO(i (ANS) 

(RETURN (COND 



{(NULL (Ml E P)> 
((NULL ANS) T) 
(T ANS) ))))) 



NIL) 



(Ml (LAMBDA 



(E P) 

(COND 



((EQUAL 

((ATOM 

((ATOM 

(COND 



((ATOM 
(CONO 



E P) T) 

P) NIL) 

(CAR P)) 

((OR (EQ 

(EQ 

(LOOPP E 
((EQ (CAR 
((EQ (CAR 
((OP (CAR 
((EQ (CAR 



(T NIL) 



DEFINE 
(((LOOPP 



(LAMBDA 



(E P) 
(PROG 



(CAR 
(CAR 

PI I 

P) 

E> 

P)l 

P) 



P) 
P) 



(QUOTE 
(QUOTE 



PLUS)) 
TIMES)) 



) 



(QUOTE EXPT)) (ZEPOW E P 1 1 
(CAR P)) (EACHP E PI) 
NIL) 
(QUOTE COEFFT)) 
(COEFFPORT E P (QUOTE (TIMES IT))) ) 
((EQ (CAR P) (QUOTE COEFFPT)) (COEFFPT E P T)) 
((EQ (CAR P) (QUOTE COEFFP) ) 

(COEFFPORT E P (QUOTE (PLUS T))) ) 
{(EQ (CAR P) (QUOTE COEFFTT)) 

(CAOR P) T (QUOTE TIMES)) ) 

(QUOTE COEFFPP)) 
(CADR P) T (QUOTE PLUS)) ) 
(QUOTE DVCOEM (DVCOE E P T)) 
(QUOTE ZEPOW)) (ZEPOW E P)) 
ANS (CONS NIL ANS)) (TESTA P E NIDI 
) 
)) 



E 

P) 

E 

pi 
p) 



(COEFFTT 
((EQ (CAR 
(COEFFTT 
((EQ (CAR 
((EQ (CAR 
((AND (SETQ 
(RESTORED 
(T (RESTORE)) 
(CAAR P) ) 
((ATOM £) NIL) 
((PR0G2 (SETQ ANS (CONS NIL ANS)) 

(TESTA (CAR PI (CAR E) E) ) 
(COND ((OR (EQ (CAR E) (QUOTE PLUS)) 

(EQ (CAR E) (QUOTE TIMES)) ) 
(COND ((LOOPP E 

(CONS (CAR E) 

(CDR P) )) 
(RESTORED ) 
(T (RESTORE)) 
( (AND (SETQ P (CONS 
(EACHP E PI I 
(RESTORED ) 
(T (RESTORE)) )) 
(T (RESTORE)) )) 
))))) 



)) 

(CAR 



E) (CDR P)>> 



(X Z EEI 
(SETQ EE 

(CONO 



I (NOT 
(LIST 



(EQ (CAR 
(CAR P) 



(CAR 
) 



P))l 
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LOOP 

L5 

L8 
L2 

L17 

L19 
L18 

LIO 



Lll 
L12 

L13 

L14 
L15 

L16 
L47 



(T E) )) 
(SETQ Z PI 
(SETQ ANS (CONS NIL ANSD 

(SETQ Z (CDR Zll 
(CONO ((NULL Z) 

(RETURN (COND ((NULL (COR EE)) (RESTORED) 
(T (RESTORED DD 
(SETQ X EE) 

(COND ((NULL (CDR X)) (GO L17D 
((OP1 (CAAR Z)) (GO tlOD 
KEQ (CAAR Z) (QUOTE EXPTD (GO LI*) I 
((Ml (CADR X) (CAR D) (GO L2D ) 

(SETQ X (COR X)) 
(GO L5) 

(SETQ ANS (CONS (CONS X (CDR X)) ANSI) 
(RPLACO X (CDDR X)) 
(GO LOOP) 

(CONO ((NOT (EQ (CAR P) (QUOTE PLUS))) (GO L18D 
((Ml (CAR Z)) (GO LOOP)) I 

(RETURN (RESTORE)) 

(COND ((ANO (EQ (CAR P) (QUOTE TIMES)) 
(Ml 1 (CAR li) > 
(GO LOOP) ) 
(T (RETURN (RESTORE))) ) 

(COND ((EQ (CAAR Z) (QUOTE COEFFTD (GO LID) 

((EQ (CAAR Z) (QUOTE COEFFPD (GO L12IJ 

((EQ (CAAR Z) (QUOTE COEFFPTD (GO L13D 

((EQ (CAAR Z) (QUOTE COEFFTTD (GO L16D 

((EQ (CAAR Z) (QUOTE COEFFPPD (GO L47D 

((EQ (CAAR Z) (QUOTE ZEPOMD (GO L1*D 

((EQ (CAAR Z) (QUOTE DVCOED (GO L43D 
(T (GO L15D > 

(COND ((COEFFPORT EE (CAR Z) (QUOTE (TIMES 1 NIL))) 
(GO LOOP) ) 
(T (RETURN (RESTORE) D ) 

(COND ((COEFFPORT EE (CAR Z) (QUOTE (PLUS NIL))) 
(GO LOOP) ) 
(T (RETURN (RESTORE))) ) 

(COND ((COEFFPT EE (CAR Z) NIL) (GO LOOP)) 
(T (RETURN (RESTORE) D ) 

(COND ((ZEPOH (CADR X) (CAR Z>) (GO L2D (T (GO L8D) 

(COND ((LOOP EE (COAR Z) ) (GO LOOP)) 
(T (RETURN (RESTORE))) ) 

(COND MCOEFFTT EE (CADAR Z) NIL (QUOTE TIMES)) 
(GO LOOP) ) 
(T (RETURN (RESTORE))) > 
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(CONO ((COEFFTT EE (CADAR Z) NIL (QUOTE PLUS M 
(GO LOOP! ) 
(T (RETURN (RESTORE)!) 1 
L43 

(CONO ((OVCOE (CADR X) (CAR Z) NIL) (60 LOOP)) 
(T (60 LB)) )))>)) 
DEFINE 

(((COEFFPORT 
(LAMBDA 
(E P INO) 
(PR06 (X Z EE) 

(SETQ ANS (CONS NIL ANS)I 
(SETO EE E) 
(COND 
((EQ (CAR IND) (QUOTE PLUS) I (60 L30)) 
((EQ (CAR E) (QUOTE PLUS)) (60 L31>) 
((EQ (CAR E) (QUOTE TIMES)) (60 L32)) ) 
(SETQ EE (LIST (QUOTE TIMES) E)> 
(GO L2) 



L32 

L31 

L30 
L35 

L2 



(CONO ((CADDR INO) (60 L2I) (T (GO LI))) 

(COND 

((NOT (CADDR IND)) (GO LI)) 

((NULL (CDDR E)) (GO L2>) 

(T (GO L20)) ) 

(COND ((EQ (CAR E) (QUOTE PLUS)) (GO L35))l 
(SETQ EE (LIST (QUOTE PLUS) E)) 
(60 L2) 

(CONO 
((NULL (CDDR E>> (60 L2>> 
((EQ (CAR INO) (QUOTE PLUS)) (60 L2>) 
I (CADDR INO) (60 L2>> 
(T (60 Li)) ) 



(COND ((EQUAL E 0) (GO L7IM 
(SETQ Z (COR P)> 
L00P1 

(SETQ Z (CDR Z)> 

(COND ((NULL Z) (GO L7)>) 

(SETQ X EE) 



L6 



(COND 
((NULL (CDR X)) (GO HOH 
((EQ (CAAR Z) (QUOTE COEFFTT) ) (GO L16I) 
((EQ (CAAR Z) (QUOTE COEFFPP) ) (GO L17M 
((Ml (CADR X) (CAR Z) ) (60 L5)) ) 

(SETQ X (COR X)) 

(60 L6) 



L5 



(SETQ ANS (CONS (CONS X (CDR X>) ANS)) 
(RPLACO X (COOR X)) 
(60 L00P1) 
L17 ' 

(CONO ((COEFFTT EE (CADAR Z) NIL (QUOTE PLUS)) (60 LOOPIM) 
(GO L7) 



L16 
L7 



(CONO ((COEFFTT EE (CADAR Z) NIL (QUOTE TIMES)) (GO L00P1I)) 
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L69 



L10 

L20 

LI 

L3 

L12 
L4 



(CONO 
((NULL (CDR EE)) 
(RETURN (COND ((TESTA (CADR P) (CADR INO) NIH 

(COND UCADDR INO) (RESTORED) (T (RESTORE2))) ) 
(T (RESTORE)) ))) 
((NULL (CODR EE)) 
(RETURN (COND ((TESTA (CAOR P> (CADR EE) NIL) 
(PR062 (SETQ ANS 

(CONS (CONS EE (CDR EE)) ANS) ) 
(PROG2 (RPLACO EE (COOR EE)) 
(CONO UCADDR INO) 
(RESTORED ) 
(T (REST0RE2)) )))) 
(T (RESTORE)) )))) 

(SETQ X (COPY1 EE)) 

(COND ((NULL (TESTA (CAOR PI X NIL)) (RETURN (RESTORE))) 

UCADDR INO) (RETURN (RESTORED)) ) 
(CONO ((AND (CDDR E) (EQ (CAR INO) (QUOTE PLUS))) 

(PROG2 (SETQ ANS (CONS (CONS EE (COR EE)) ANS I I (RPLACO EE NIL)) )) 
(RETURN (RESTORE2)) 

(CONO ((NULL (Ml (CADR INO) (CAR ZD) (RETURN (RESTORE)))) 
(60 LOOPD 

(RETURN (RESTORE)) 

(SETQ X EE) 

(COND ((NULL (COR X)) (GO L4I) 

UCOEFFPORT (CADR X) P (LIST (CAR IND) (CAOR IND) T)) (GO L12>) I 
(SETQ X (COR X)) 
(GO L3) 

(SETQ ANS (CONS (CONS X (CDR X>) ANSI) 
(RPLACO X (CODR X)) 
(RETURN (REST0RE2)) 



(COND ((NULL (Ml (CAOR IND) PI) (RETURN (RESTORE)))) 
(RETURN (REST0RE2D ))))) 
DEFINE 
(((COEFFPT (LAMBDA (E P IND) 

(PROG (Z ZZ) 
(SETQ Z 

(COND ((EQ (CAR E) (QUOTE PLUS)) E) 
(T (LIST (QUOTE PLUS) ED )) 
(SETQ ANS (CONS NIL ANS)) 
(SETQ ZZ (CONS (QUOTE COEFFT) (COR PD) 



L19 
L22 

L20 
L21 



(COND ((NULL (CDR Z) I (GO L2D) 

((NULL (Ml (CADR Z) ZZ)) (GO L20D ) 

(SETQ ANS (CONS (CONS Z (COR ZD ANS)) 
(RPLACO Z (CODR ZD 
(GO L19) 

(SETQ Z (COR ZD 
(GO L19) 

(SETQ Z 

(FINDIT (COND ((EQ (CAADR P) (QUOTE VAR»D 
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(CAR (CDDADR P)> ) 
(T (CAADR P)> ))) 
(COND ((NULL Z) 

(RETURN (COND ((NULL (TESTA (CADR P) 



NIL )) 
(RESTORE) ) 
(IND (RESTORED) 
(T (PR0G2 (RESTORE2) 0)) ))) 
((NULL (CDR Z)) 
(RETURN (COND ((NULL (TESTA (CADR P) 

(CAR Z) 
NIL )) 
(RESTORE) ) 
(IND (RESTORED) 
(T (PR0G2 (REST0RE2) 

(CAR Z> )))))) 
(SETQ Z (SIMPPLUS Z)) 

(COND ((NULL (TESTA (CADR P) Z (QUOTE COEFFPT))) 
(RETURN (RESTORE)) ) 
(IND (RETURN (RESTORED)) ) 
(RETURN (PR0G2 (REST0RE2) Z)) ))) 
(EACHP (LAMBDA (E PI 

(PROG NIL 

(COND ((NOT (EQUAL (LENGTH E) (LENGTH P))) 

(RETURN NIL) )) 
(SETQ ANS (CONS NIL ANS ) ) 
EACHPL 

(SETQ E (CDR E) ) 

(COND {(NULL E) (RETURN (RESTORED)) 
((NULL (Ml (CAR E) (CADR P))I 
(RETURN (RESTORED )) 
(SETQ P (CDR P)) 
(GO EACHPL) ) ) ) 
(ZEPOW (LAMBDA (E P) 

(PROG NIL 

(SETQ ANS (CONS NIL ANS) ) 
(COND ( (ATOM E) (GO L6) ) ) 



L5 

L9 
L10 

L8 

L7 
L6 



(COND ((NOT (EQ (CAR Ei (QUOTE EXPTD) (GO L8D 
((NOT (Ml (CADR E) (CADR PD) (GO L8)> 
((NOT (MI (CADDR E) (CAODR PD) 
(RETURN (RESTORED )) 

(RETURN (RESTORED) 

(COND {(ANO (NOT (Ml (CADDR P))l 
(NOT (Ml 1 (CADR P)D ) 
(RETURN (RESTORE)) )) 
(GO L9) 

(COND ((NOT (Ml E (CADR PD) (RETURN (RESTORED) 

((NOT (Ml 1 (CADDR P)D (RETURN (RESTORE))) ) 
(GO L9) 

(COND ((NOT (Ml (CADR P) ) > (RETURN (RESTORE)))) 
(GO L9) 

(COND ((EQP E 1) (GO L10)) 
((EQP E 0) (GO L7D 
(T (GO L8D ID) 
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(LOOP (LAMBDA (E LP) 

{PROG (Z Y X) 



L5 
L6 



LIO 



L8 



ISETQ ANS (CONS (QUOTE »LOOP) (CONS NIL ANSI)) 
(SETQ X LP) 

(SETQ Z E) 

(COND ((NULL (Ml (CADR Z) (CAR X))) (GO L10)>> 

(SETQ Y (CONS (LIST X Z (CDR Z)) YD 

(SETQ ANS (CONS (CQNS Z (CDR Z)) ANSI) 

(RPLACD Z (CDDR Z) ) 

(SETQ X (CDR X) ) 

(COND ((NULL X) (RETURN ( RESTORE2 ) ) ) ) 

(SETQ ANS (CONS (QUOTE »LOOP) ANSI) 

(GO L5) 

(SETQ Z (CDR Z) ) 

(COND ((NOT (NULL (COR Z))l (GO L6)) 

((EQUAL X LP) (RETURN (RESTORE))) ) 

(SETQ X (CAAR Y) ) 

(RPLACD (CADAR Y) (CADDAR YD 

(SETQ Z (CADDAR Yl ) 

(SETQ Y (CDR Y) ) 

(SETQ ANS (CDR ANS) ) 

(RESTORE3) 

(GO L6) ) ) ) I ) 



DEFINE 

(((RESTORE3 (LAMBDA NIL 

(PROG NIL 
LI 



(COND ((NULL ANS) (ERROR (QUOTE RESTORE3D) 

((NULL (CAR ANSI) (ERROR (QUOTE RESTORE3D) 
((EQ (CAR ANS) (QUOTE »LOOP)I (RETURN NIDI 
( (NOT (ATOM (CAAR ANS) ) ) 
(RPLACD (CAAR ANS) (CDAR ANS)) )) 

(SETQ ANS (CDR ANS) ) 

(GO LI) I ) ) 



(RESTORE (LAMBDA NIL 

(PROG (Y) 



LI 



(SETQ Y ANS) 

(COND ((NULL Y) (RETURN NIL)) 

((EQ (CAR Y) (QUOTE «LOOPD 
(PROG2 (RPLACA Y (CADR YD 

(RPLACD Y (CDDR Y) ) ) ) 
( (NULL (CAR Y) ) 

(RETURN (PR0G2 (SETQ ANS (CDR YD NIL)) ) 
( (NOT (ATOM (CAAR Y) ) ) 
(RPLACD (CAAR Y) (CDAR YD )) 
(SETQ Y (CDR Y) ) 
(GO LI) )) ) 



(RESTORE1 (LAMBDA NIL 

(PROG (Y) 
L2 



(SETQ Y ANS) 

(COND ((NULL ANS) (RETURN TD 

( (NULL (CAR ANS) ) 
(RETURN (PROG2 (SETQ ANS (CDR ANS)) TD ) 

((NOT (ATOM (CAAR ANSI)) (GO L3D ) 



LI 
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(COND ((NULL (CDR YD (RETURN T»J 
((NULL (CADR Y) I 

(RETURN (PR062 (RPLACD Y (COOR YD T>) ) 
((NOT (ATOM (CAADR YD) 
(PROG2 (RPLACD (CAADR Y) (CDAOR VI I 
(RPLACD Y (CDOR Y>> )) 
(T (SETQ Y (CDR YD) ) 
(GO LI) 



L3 



(RPLACD (CAAR ANSI (CDAR ANSD 
(SETQ ANS (CDR ANSM 
(GO L2) )1) 
(RESTORE2 (LAMBDA NIL 

(PROG (Y) 

(SETQ Y ANS) 

(COND ((NULL ANS) (RETURN T>> 
((NULL (CAR ANS)) 
(RETURN (PR0G2 (SETQ ANS (CDR ANSI) T)) >) 
LI 

(COND ((NULL (CDR Y)) (RETURN T)) 
(tEQ (CADR Y) (QUOTE •LOOP)) 

(RPLACD Y 1CDDR YD ) 
((NULL (CADR YD 
(RETURN (PRQG2 (RPLACD Y ( CDDR Y)) T)) I) 
(SETQ Y (CDR YD 
(GO LI) >>) 
(TESTA* (LAMBDA (ALA EXP LOC) 

(COND ((COND ((Eg (CADR ALA) (QUOTE FREED (FREE EXPD 
((EQ (CADR ALA) (QUOTE NUMBERPD 

(NUHBERP EXP) ) 
((EQ (CADR ALA) (QUOTE TRUE)) T) 
(T (APPLY (CADR ALA) 

tFINDTHEM (CDDR ALA)) 
(ALIST) ))) 
(COND ((NOT (MEMBER (CAR ALA) SPLISTD 
(PROG2 (SETQ ANS 

(CONS (CONS (CAR ALA) EXP) 
ANS ) ) 
T )) 
(T T) D 
(T NIL) ))) 
IF4NDTHEM (LAMBDA (ARGS) (FINOT1 ARGS ANS (CONS EXP NIL)))) 
(FINDT1 (LAMBDA (X Y Z) 

(COND ((NULL X) Z) 
((NULL Y) 
(FINDT1 (COR X) 
ANS 

(NCONC Z (LIST (EVAL (CAR X) (ALIST)))) D 
((EQ (CAAR Y) (CAR X) ) 

(FINDT1 (CDR X) ANS (NCONC Z (CONS (COAR Y) NIL))) ) 
(T (FINDT1 X (CDR Y) Z) ) ))))) 
DEFINE 
(((OP (LAMBDA (FN) 

(MEMBER FN 

(QUOTE (PLUS TIMES 
EXPT 
SIN 
COS 
TAN 
LOG 
SEC 
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INTEGRAL 
ARCSIN 
ARCCOS 
ARCTAN ))))) 
(COPY1 (LAMB0A (A) (COND UNUtL A) NIL) (T (CONS (CAR A) (COPY1 (COR A)!))))) 
(FINOIT (LAMBOA (A) 

(PROG (Y Z) 

(SETQ Y (CONS NIL ANS)> 
LI 

(CONO ((NULL (COR Y)> (RETURN Z)l 
((NULL (CADR Y) ) (RETURN Zll 
((EQ (CAAOR Y> A) 
(PROG2 (SETQ Z (NCONC Z (LIST ( CDADR Y>)>) 
(RPLACO Y (CODR YD I) 
(T (SETQ Y (CDR Y))) ) 
(GO LI) ))) 
(FREE (LAMBDA (A) 

(CONO ((ATOM A) (NOT (EQ A VAR) 1 ) 

(T (AND (FREE (CAR A)) (FREE (CDR A)))) ))) 
(OP1 (LAMBOA (A) 

(MEMBER A 

(QUOTE (COEFFPT COEFFP 
COEFFT 
ZEPOW 
COEFFPP 
COEFfTT 
LOOP ))))) 
(COEFFTT (LAMBOA (EXP PAT IND OPIND) 
(PROG (RES Z) 

(SETQ ANS (CONS NIL ANSI) 

(COND ((AND IND (NOT (EQ (CAR EXP) OPINDII) 

(SETQ EXP (LIST OPIND EXP) ) )) 
(SETQ Z EXP) 
(SETQ SPLIST (CONS (CAR PAT) SPLIST)) 



LI 



L2 



L3 



L4 



(COND ((NULL (COR ZM (GO L3)> 

((TESTA PAT (CADR Z) NIL) (GO L2II ) 
(SETQ Z (COR Z)> 
(GO LI) 

(SETQ ANS (CONS (CONS Z (CDR Z>> ANS I I 

(SETQ RES (CONS (CADR Z) RES)) 

(RPLACO Z (COOR Z) ) 
(GO LI) 

(SETQ SPLIST (CDR SPLIST)) 
(COND (RES (GO L4) ) 

((NOT (TESTA PAT 

(CONO ((EQ OPIND 

(QUOTE PLUS) ) 
) 

(T 1) ) 
NIL )) 
(RETURN (RESTORE)) )) 
(COND (IND (RETURN (RESTORED)) 
(T (RETURN (REST0RE2))) ) 

(SETQ RES 

(COND ((COR RES) (CONS OPIND RES)) 
(T (CAR RES)) )) 
(SETQ ANS (CONS (CONS (CAR PAT) (SIMP RES)) ANS)) 
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(TESTA 
(LAMBDA 



(COND (IND (RETURN (RESTORED)) 

(T (RETURN (REST0RE2))) )))) 



(ALA EXP 6) 
(PROG (Y Z FUNC VAL) 
(COND ((NOT (EQ 



LOOP 



(SETQ 
(SETQ 

(COND 



(CAR ALA) (QUOTE VAR< 
(RETURN (TESTA* ALA EXP NIL)) 
Z (CADR ALA)) 
ALA (CDDR ALA)) 



Dl 
I) 



((NULL Z) 
(RETURN (PR0G2 (SETQ 



Y 
(COND 



(VAL (Ml EXP YD 
(T (TESTA* ALA 
EXP 

NIL )))) 
(COND ((NULL Y) NIL) 

(FUNC (SET (CAR ALA) EXP)) 
(T YJ )))) 
((EQ (CAR Z) (QUOTE SET)) (SETQ FUNC TD 
4IEQ (CAR Z) (QUOTE UVARD 
(COND ((SETQ Y 

(CDR (SASSOC (CAR ALA) 
ANS 

(QUOTE NILL) ))) 
(SETQ VAL T) ) 
(T NIL) )) 
((AND (EQ B (QUOTE COEFFPTD 

(EQ (CAAR Z) (QUOTE COEFFPTD ) 
(SETQ ALA (CADAR Z) ) )l 
(SETQ Z (CDR ZD 
(GO LOOP) ))))> 



SCHVUOSt REPLACE. OIFF 



DEFINE 

(((SIMPPLUS 
(LAMBDA 
(EXP) 
(PROG 



B 



BB 



IV IND Z U 
(SETQ A 0) 



ANS A B AD 



(COND 

(SETQ 

(COND 

((EQ 



((NULL EXP) (GO AA)D 
Y (SIMP (CAR EXP))) 



(CAR Y) (QUOTE PLUSD (GO CD 
((NUNBERP Y) (SETQ A (PLUS Y AD ) 
(T (SETQ Z (CONS Y ZD) ) 



(SETQ EXP 
(GO B) 



(CDR EXP)) 



AA 



( COND 

((NUMBERP (CADR Y) I 
(PR0G2 (SETQ Z (APPEND 

(T (SETQ Z (APPEND (COR 
(GO BB) 

(COND 



(CDDR Y> ZD 
Y) ZD) ) 



(SETQ A (PLUS (CADR Y) A))) ) 
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( (NULL Z) (GO El) ) 

( (NULL (CDR Zl ) (GO EE) ) 

((EQ (CAAR Z) (QUOTE TIMES)) 



(GO E) ) ) 



(SETQ Al 1) 
(SETQ IND T) 
(SETQ B (CAR Z) I 
(GO FF) 

(COND ((NOT (NUMBERP (CADAR Z)l) (GO P))) 

(SETQ Al (CADAR Z) ) 

(COND ((NULL (CDDDAR Z)) (GO G))) 

( SETQ B (CDDAR Z) ) 

(SETQ IND NIL) 

(GO FF) 

(SETQ Al 1) 
( SETU B (CDAR Z) ) 
(SETQ IND NIL) 
(GO FF) 



FF 



EE 
El 



SETQ B (CADDAR Z) ) 
SETQ IND T) 



SETQ Z 
SETQ Y 
(COND 
( IND 
(T (C 
SETQ Y 
COND 
( (ZERO 
{ (ONEP 
(SETQ 
( IND ( 
(T (SE 
SETQ Z 
GO AA) 



(CONS (QUOTE PLUS) (CDR Z))> 



(COEFFPT Z (LIST NIL (QUOTE (C NUMBERP)) B) NIL)) 
OEFFPT Z (CONS NIL (CONS (QUOTE (C NUMBERP)) B)) NIL)) )) 
(PLUS Al Y) ) 

P Y) T) 
Y) 

W CONS (COND (IND B) (T (CONS (QUOTE TIMES) B))) Wl) ) 
SETQ W (CONS (LIST (QUOTE TIMES) Y B) WM) 
TQ W (CONS (CONS (QUOTE TIMES) (CONS Y B)) W))) ) 

(CDR Z)) 



( SETQ W (CONS (CAR Z) U) ) 

(SETQ W (COND ((ZEROP A) W) (T (CONS A W)))) 

(RESTORE ) 

(COND 
( (NULL W) (RETURN 0) ) 
((NULL (CDR W)) (RETURN (CAR W))) 
(T (RETURN (CONS (QUOTE PLUS) W))) )))))) 



DEFINE 

( ( ( SIM 

(LA 

( t 

(P 



PTIMES 
MBDA 
XP ) 

ROG ( Y DI V Z W 
(SETQ A 1) 



A Al B ZZ) 



(COND ((NULL EXP) (GO START))) 
( SETQ Y ( SIMP (CAR EXP) ) ) 
(COND ((EQ (CAR Y) (QUOTE TIMES)) 
(COND ((NUMBERP (CADR Y>) 

(PR0G2 (SETC A (TIMES (CADR Y) A)) 
(SETQ Z (APPEND (CDDR Y) Z)) 



) ) 
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(T (SETQ Z (APPEND (COR Y) ZD) )) 
((AND (NUMBERP Y) (ZEROP Y) ) (RETURN 0)) 
I (NUMBERP Y) (SETQ A (TIMES Y A))) 
(T (SETQ Z (CONS Y Z) I > ) 
(SETQ EXP (CDR EXP)) 
(GO B) 
START 

(CONO ((AND (EQ (CAAR Z) (QUOTE PLUS) I 
(NULL (CDR Z)) 
(NULL HI 

(NOT (ONEP A)) ) 
(RETURN (PROG23 (CSETQ SINPIND T) 

(TIMESLOOP A (CDAR Z)) 
(CSETQ SIMPINO NIL) )))) 
(COND ((NULL Z) (GO EDI 

((NULL (CDR Z>) (GO EEI) 

(EXPTSUM (RETURN (CONS (QUOTE TIMES) (CONS A Z)))) 
((EQ (CAAR Z) (QUOTE EXPT) ) (GO G) I ) 
(SETQ Al 1) 
(SETQ B (CAR Z)> 
(GO FF) 
G 

(SETQ B (CADAR Z)) 
(SETQ Al 

(COND (INUM8ERP (CADDAR Z) ) (CADDAR Z>> 
(T (CONS (CADDAR Z) NIL)) )> 



FF 
K 



JK 
J 



JJ 



(SETQ ZZ Z) 

(COND ((EQ (CAADR ZZ) (QUOTE EXPT)) (GO H) ) 

KM2 (CADR ZZ) B NIL) (GO I)) ) 
(COND ((AND QUOTINO 

(EQ (CAR B) (QUOTE PLUS I) 
(EQ (CAADR ZZ) (QUOTE PLUS)) 
(SETQ Y (MATCHSUM1 B (CADR ZZ))) ) 
(GO DIV1) )) 

(SETQ ZZ (CDR ZZ) ) 

(COND ((CDR ZZ) (GO K))) 
(GO H) 

(COND ((M2 (CADADR ZZ) B NIL) (GO L))) 

(COND ((AND QUOTIND 

(EQ (CAR B) (QUOTE PLUS)) 
(EQ (CAR (CADADR ZZ)) (QUOTE PLUS)) 
(SETQ Y (MATCHSUH1 B (CADADR ZZ))) ) 
(GO DIV2) )) 

(GO JK) 

(RPLACD ZZ (CDDR ZZ) ) 
(GO J) 

(SETQ Al (CONO ( (NUMBERP Al) (ADD1 Al ) ) (T (CONS 1 Al)))) 
(GO JJ) 

(SETQ Al 

(COND ((AND (NUMBERP Al) (NUMBERP (CADDAR (CDR ZZ)))) 
(PLUS Al (CADDAR (COR ZZ))) ) 
IT (CONS (CADDAR (CDR ID) 

(CONO ((ATOM Al) (LIST AD) (T AD) )))) 
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EE 
El 



DIV1 



DIV2 



(GO JJ) 

(SETQ Al (COND ((NUMBERP Al) AD (T (SIMPPLUS Al))>) 
(SETQ W 

(COND ( (NUMBERP Al ) 

(COND ( (ZEROP Al) U) 

( (ONEP Al) (CONS B W) ) 

(T (CONS (LIST (QUOTE EXPT) B Al) WD )) 
(T (CONS (LIST (QUOTE EXPT) B AD WD D 
( SETQ Z (CDR Z) I 
(GO START) 

( SETQ W ICONS (CAR Z) W) ) 

(SETQ A 

ICOND ((NULL W) A) 

( (NULL (CDR W) ) 
(COND ( (ONEP A) (CAR W) ) 

(T (LIST (QUOTE TIMES) A (CAR WD) )) 
((ONEP A) (CONS (QUOTE TIMES) WD 
(T (CONS (QUOTE TIMES) (CONS A WD) )) 
(COND ((NULL DIV) (RETURN A)) 

(T (RETURN (SIMPTIMES (LIST (CONS (QUOTE TIMES) DIV) ADD ) 

(COND ((AND (NUMBERP Y) (SETQ A (TIMES A YD) (GO D) 
((SETQ DIV (CONS Y DIV)) (GO I)) ) 

(SETQ DIV (CONS (SIMPEXPT (LIST Y (CAR (CDDADR ZZ1D) DIVD 
( GO L ) ) ) ) ) ) 



DEFINE 

( ( (SIMPE 

I LAMB 

(EXP 

(PRO 



XPT 

DA 

I 



A B) 
SETQ 
SETQ 
COND 
( (EQP 
( (AND 
(EQ 
( SE 
( SE 
NIL 
NIL 
( (EQP 
( (EQP 
( ( EQP 
( (AMD 
(RET 
( I 
( ( 
( T 
( (EQ 

(RET 

( (AND 

(RET 

(CO 

(Q 

(M 

( 



(SIMP 
( SIMP 



(CADR EXP) ) ) 
(CAR EXP) ) ) 



A 0) (RETURN 0) ) 



(CAR 
TQ B 
TQ A 

I 
) 

B 



A) (QUOTE 
( SIMPTIMES 
(CADR A) ) 



EXPT) ) 

(LIST B (CADDR A) ) ) ) 



0) (RETURN 1) ) 

B 1) (RETURN AD 

A 1 ) (RETURN 1 ) ) 

(NUMBERP A) (NUMBERP Bl) 
URN (COND 

NOT EXPTIND) (EXPT A B) ) 
AND (FIXP B) (GREATERP B -1 ) ) (EXPT A BD 

(LIST (QUOTE EXPT) A B) ) ) ) ) 
(CAR A) (QUOTE TIMES) ) 
URN (CONS (QUOTE TIMES) (EXPTLOOP (CDR A)))) ) 

EXPTSUM (EQ (CAR B) (QUOTE PLUS))) 
URN 
NS 

UOTE TIMES) 
APLIST (CDR B) 
FUNCTION (LAMBDA (C) (SIMPEXPT (LIST A (CAR CD))) )))) 
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( (NOT (ATOM B) > 
(RETURN 
(PROG (W) 

(RETURN 
(COND 
((NOT (SETQ U 
(M2 
8 

(QUOTE (PLUS (COEFFT (C TRUED 
(LOG (Bl TRUE) (A TRUE) ) ) 
(COEFFP (E TRUE)) )) 
NIL ))) 
(LIST (QUOTE EXPT) A B) ) 
((NOT (EQUAL A (SUBLIS W (QUOTE Bl)))) 

(LIST (QUOTE EXPT) A B) ) 
(T 
(SIMPTIMES (LIST 

(SIMPEXPT (LIST (SUBLIS W (QUOTE A)) 

(SUBLIS W (QUOTE CD )> 
(SIMPEXPT (LIST A (SUBLIS W (QUOTE E)D) ))))))))) 
(RETURN (LIST (QUOTE EXPT) A BD ))) 
(EXPTLOOP 
(LAMBDA 
(A) 

(PR0G23 
(CSETQ SIMPINO T) 

(MAPLIST A (FUNCTION (LAMBDA (C) (SIMPEXPT (LIST (CAR C) BD))) 
(CSETU SIMPINO NIL) ) )) 
(SIMP 
(LAMBDA 
(EXP) 
(PROG (Z) 

(RETURN 
(COND 
((ATOM EXP) EXP) 
(SIMPINO EXP) 

((NULL (SETQ Z (GET (CAR EXP) (QUOTE SIMP)))) 
(CONS (CAR EXP) 
(MAPLIST (COR EXP) (FUNCTION (LAMBDA (C) (SIMP (CAR ODD D 
((EQ Z (QUOTE SIMPTIMES)) (SIMPTIMES (CDR EXPD) 
{(EQ Z (QUOTE SIMPPLUSD (SIMPPLUS (CDR EXP))) 
((EQ Z (QUOTE SIMPEXPT)) (SIMPEXPT (COR EXP))) 
(T (APPLY Z (LIST (CDR EXPD (ALISTD) ))))))) 



ATTRItt 








(PLUS (SIMP SIMPPLUS)) 






ATTRI3 








(TIMES (SIMP SIMPTIMES)) 






ATTRIB 








(EXPT (SIMP SIMPEXPT)) 






DtFINE 








( ( (SIMPLOG 








(LAMBDA 








(A) 








(PROG (B) 








(SETQ 


B (SIMP 


(CADR 


: AD) 


(SETQ 


A (SIMP 


(CAR 


AD) 


(CONO 


( (EQUAL 


A B) 


(RETURN 



D) 
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IIEQP B 1) (RETURN 0)1 
KEQ (CAR B) (QUOTE EXPT) I 
(COND ((EQUAL A (CADR B)l (RETURN (CADDR 81)1 
(T (RETURN (LIST (QUOTE TIMES) 
(CAODR B) 

(LIST (QUOTE LOG) A (CADR B)> ))))) 
(T (RETURN (LIST (QUOTE LOG! * B) ) ) )))))) 

ATTRIB 

(LOG (SIMP SIMPLOG)) 

DEFINE 
(((SIMPTRIG 
( LAMBDA 
(A B C D) 
(PROG (Y) 

(RETURN (COND 
((EQUAL D B) C) 
((ATOM D) (LIST A D)> 
((SETQ Y 

(CDR (SASSOC (CAR D> 

(GET A WUOTE SIMPTRIG)) 
(QUOTE NILL) ))) 
(SIMP (SUBST (CAOR 0) (QUOTE X) Y) ) ) 
(T (LIST A D>) >)))) 
(SIMPTRIG1 (LAMBDA (A) (SIMPTRIG (QUOTE SIN) (SIMP (CAR A))))) )) 

ATTRIB 

(SIN (SIMP SIMPTRIGD) 

ATTRIB 

(COS (SIMP SIMPTRIG21I 

DEFINE 

(KSIMPTRIG2 (LAMBDA (A) (SIMPTRIG (QUOTE COS) 1 (SIMP (CAR A))))))) 

DEFINE 
(((TIME SLOOP 
(LAMBDA 
(A B> 
(CONS 
(QUOTE PLUS) 
(MAPLIST B 
(FUNCTION (LAMBDA (C) 

(SIMPTIMES (PR0G23 (CSETQ SIMPIND T> (LIST A (CAR CI) (CSETQ SIMPIND NIL)) ))))))) 
(EXPAND 
(LAMBDA 
(A B) 

(SIMPPLUS (MAPLIST B (FUNCTION (LAMBDA (C) (TIMESLOOP (CAR C) A))))) )) 
IPR0G23 (LAMBDA (A B CI B) ) )) 

DEFINE 

(((SIMPTAN (LAMBDA (A) 

(COND ((EQ (CAAR A) (QUOTE ARCTANI) (SIMP ( CADAR AMI 

(T (SIMPTRIG (QUOTE TAN} (SIMP (CAR A)) II III 
(SIMPARCTAN (LAMBDA (A) 

(COND KEQ (CAAR A) (QUOTE TAN) I (SIMP (CADAR All) 

(T (SIMPTRIG (QUOTE ARCTAN) (SIMP (CAR A)))) )))>) 

ATTRIB 

(TAN (SIMP SIMPTAN)) 
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ATTRIB 

(ARCTAN (SIMP SIMPARCTAN)) 

DEFINE 

(((SIMPDIFFERENCE (LAMBDA (A) 

(SIMPPLUS (LIST (CAR A) 

ISIMPTIMES (LIST -1 (CADR A))) )))) 
(SIMPQUOTIENT (LAMBDA (A) 

(SIMPTIMES (LIST (CAR A) 

(SIMPEXPT (LIST (CADR A) -1)> )))) 
(SIMPMINUS (LAMBDA (A) (SIMPTIMES (LIST -1 (CAR A))))) 1) 

ATTRIB 

(DIFFERENCE (SIMP SIMPDIFFERENCE) ) 

ATTRIB 

(QUOTIENT (SIMP SIMPQUOTIENT)) 

ATTRIB 

(MINUS (SIMP SIMPMINUS)) 

ATTRIB 

(SIN (SIMPTRIG ((ARCSIN . X) 

(ARCCOS EXPT (DIFFERENCE 1 (EXPT X 2)) 0.5EO) 

(ARCTAN QUOTIENT X (EXPT (PLUS 1 (EXPT X 2)) 0.5E0)) ))) 

ATTRIB 

(COS (SIMPTRIG ((ARC SIN EXPT (DIFFERENCE 1 (EXPT X 2)) 0.5E0J 

(ARCCOS . X) 

(ARCTAN EXPT (PLUS 1 (EXPT X 2)) -0.5E0) II! 

ATTRIB 

(TAN (SIMPTRIG ((ARCSIN QUOTIENT X (EXPT (DIFFERENCE 1 (EXPT X 2)) 0.5E0)) 

(ARCCOS QUOTIENT (EXPT (DIFFERENCE 1 (EXPT X 21) 0.5E0) X) 

(ARCTAN . X) ))) 

ATTRIB 

(ARCSIN (SIMPTRIG ((SIN . X) (COS PLUS X (QUOTIENT PI 2))))) 

ATTRIB 

(ARCCOS (SIMPTRIG ((SIN DIFFERENCE X (QUOTIENT PI 2 ) } (COS . X)))) 

ATTRIB 

(ARCTAN (SIMPTRIG ((TAN . X)))) 

DEFINE 

(KNILL (LAMBDA NIL (QUOTE (NIL)))))) 

DEFINE 

IUSIMPARCSIN (LAMBDA (A) (SIMPTRIG (QUOTE ARCSIN) (SIMP (CAR A))))) 
(SIMP ARCCOS 
(LAMBDA (A) 

(SIMPDIFFERENCE (LIST (SIMPQUOTIENT (LIST (QUOTE PI) 2)) 

(SIMPARCSIN (LIST A)) )))) 
(SIMPARCCOT 
(LAMBDA (A) 

(SIMPDIFFERENCE (LIST (SIMPQUOTIENT (LIST (QUOTE PI) 21) 

(SIMPARCTAN (LIST A,)) )))))) 
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ATTRIB 

(ARCSIN (SIMP SIMPARCSIN)) 

ATTRIB 

(ARCCOS (SIMP SIMPARCCOS)) 

ATTRIB 

(ARCCOT (SIMP SIMPARCCOT)) 

DEFINE 

(UMATCHSUM1 (LAMBDA (ASUM BSUM) 

(PROG (Z M LENGTH MINLENGTH QUOT MINQUOT) 

(CONO ((NOT (EQUAL (LENGTH ASUM) (LENGTH BSUM)M 

(RETURN NIL) )) 
(SETQ Z (CAOR ASUMI) 
(SETQ W (COR BSUM)) 
(SETQ MINLENGTH 1000) 
LOOP 

(SETQ QUOT (SIMPQUOTIENT (LIST (CAR W) Z))l 
(SETQ LENGTH 

(LENGTH (CONO UEQ (CAR QUOT) 

(QUOTE TIMES) ) 
(CDR QUOT) ) 
(T (QUOTE (NIL))) ))) 
(COND {(GREATERP LENGTH MINLENGTH) (GO A))) 
(SETQ MINLENGTH LENGTH) 
(SETQ MINQUOT QUOT) 
A 

(CONO {(EQUAL MINLENGTH 1) (GO OUT))) 
(SETQ W (COR WD 
(COND (W (GO LCOPIll 
OUT 

(COND KM2 BSUM 

(TIMESLOOP MINQUOT (COR ASUM)) 
NIL ) 
(RETURN MINQUOT) )) 
(RETURN NIL) >)))> 

DEFINE 

({(SIMPCOT (LAMBDA (X) (LIST (QUOTE EXPT) (SIMPTAN X) -1))))) 

ATTRIB 

(CUT (SIMP SIMPCOT)) 

DEFINE 

(((REPLACE (LAMBDA (DICT EXP1) 

(PR0G23 (CSETQ SIMPIND T) (REPLAC EXP1) (CSETQ SIMPIND NIL)) )) 
(REPLAC 
(LAMBDA 
(EXPl) 
(PROG (Zl) 

(RETURN 
(COND 
((NULL EXP1) NIL) 
( (NOT (ATOM EXP1J) 
(COND 
UEQ (CAR EXPl) (QUOTE EVALM 
(PR0G2 
(SETQ Zl (EVAL (REPLAC (CADR EXPl I ) (ALIST))) 
(PR0G23 
(CSETQ SIMPIND NIL) 
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(CADR EXP1I) 



(SIMP Zl) 

(CSETQ SIMPINO T) ) D 
((EQ (CAR EXPD (QUOTE QUOTE*)! 
(T (PROG (Zl Wl) 

(SETQ Zl (REPLAC (CAR EXP1))) 
(SETQ Wl (REPLAC (CDR EXPDD 

(RETURN (COND ((AND (EQ Zl (CAR EXPD) ( EQ Wl (COR EXP1))) 
EXP1 ) 
(T (SIMP1 (CONS Zl Wit ) ) )))))) 
( (NUM3ERP EXP1 ) EXPD 
((SETQ Zl (SASSOC EXP1 DICT (FUNCTION (LAMBDA NIL NIL)))) 

(CDR Zl) ) 
( T EXP1) ) ) ) ) ) 
(SIMP1 (LAMBDA (EXPD 
(COND 
( ( ATOM EXPD EXP1 ) 

((NOT (GET (CAR EXPD (QUOTE SIMP))) EXPD 
( ( EQ (CAR EXPD (QUOTE TIMES)) (SIMPTIMES (CDR EXP1D) 
((EQ (CAR EXPD (QUOTE PLUS)) (SIMPPLUS (COR EXPD)) 
((EQ (CAR EXPD (QUOTE EXPTD (SIMPEXPT (CDR EXPD)) 
(T (APPLY (GET (CAR EXPD (QUOTE SIMP)) (LIST (CDR EXPD) 



( ALISTD ) ) ) ) I ) 



DEFINE 
( ( ( DVCOE 
(LAMB 



DA (E P IND) 

(PROG (X Y Z) 

( SETQ ANS (CONS NIL ANSI ) 

(CUND ((NOT (EQ (CAR E) (QUOTE TIMES))) 

(SETQ E (LIST (QUOTE TIMES) ED )) 
(SETQ Z (CDR P) ) 



LOOP 



LOOP1 



LOOP2 



L2 



LI 



L7 



(SETQ Z (CDR Zl) 
(COND ((NULL Z) 

(COND ((TESTA (CADR P) (SIMP (COPY1 ED NIL) 
(RETURN (COND (IND (RESTORED) 

(T (RESTORE2D ))) 
(T (RETURN (RESTORE) ) ) ) ) ) 
(SETQ X E ) 
(GO LOOP2) 

(SETQ X (CDR XI) 

> 

(COND ((NULL (CDR X)) (GO L6 ) ) ) 

(COND ((EQ (CAAOR X) (QUOTE EXPTM (GO LD ) 

( (Ml (CADR X) (CAR Z) ) (GO L2D ) 
(GO LOOPD 

(SETQ ANS (CONS (CONS X (CDR X)) ANSI) 
(RPLACD X (CDDR X) ) 
(GO LOOP) 

(COND ((EQ (CAAR Z) (QUOTE EXPTD (GO L3D 

((NOT (Ml (CADADR X) (CAR Z))) (GO LOOPD) ) 
(SETQ Y -D 

(SETQ ANS (CONS (CONS X (CDR X)) ANS)) 
(RPLACD X 

(CONS (SIMP (LIST (CAADR X) 
(CADADR X) 
(LIST (QUOTE PLUS) 

(CAR (CCDADR X) ) 
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L3 



L5 



(CDDR X> )) 



(GU LUOP) 



Y ) ) ) 



[COND C ( Ml (CADADR X) (CADAR Z)) (GO L5 ) ) ) 

(GO LOOP1) 

(COND ((Ml (CAR (CDDAOR X)) (CADDAR Z>) (GO L2))l 
(SETQ Y (SIMPMINUS (LIST (CADDAR Z)))l 
(GO L7) 



(COND ((Ml 1 (CAR Zll (GO LOOP))) 
(SETQ E 

(CONS (CAR E) 

(CONS (SIMPEXPT (LIST (CAR Z) 
(GO LOOP) 1 )) ) ) 



-1) ) (CDR E) ) I ) 



DEFINE 

(((DIFF1 (LAMBDA (EXP VAR) (PROG23 (CSET SIMPIND T) (DIFF EXP) ( CSET SIMPIND NIL))) ) 
(DIFF 
( LAME 
(EXF 
(CON 
( (I 
( ( I 
(( 



1) (TO))) 



BDA 
P ) 
NO 

ATOM EXP) (COND ((EQ EXP VAR) 
EQ (CAR EXP) (QUOTE EXPT) ) 
COND 

( (FREE (CADDR EXP) ) 
(SIMPTIMES (LIST 
(CADDR EXP) 

(SIMPEXPT (LIST (CADR EXP) [SIMPPLUS (LIST (CADDR EXP) -1)))) 
(DIFF (CADR EXP) ) ) ) ) 
I (FREE (CADR EXP) ) 
(SIMPTIMES (LIST 
EXP 

(SIMPLOG (LIST (QUOTE E) ICADR EXP))) 
(DIFF (CADDR E XP ) ) ) ) ) 
( T 
( SIMPTIMES 
(LIST 
EXP 

(SIMPPLUS (LIST 
(SIMPTIMES (LIST 
(CADDR EXP) 
(DIFF (CADR EXP) ) 

(SIMPEXPT (LIST (CADR EXP) -1)) )) 
(SIMPTIMES (LIST (SIMPLOG (LIST (QUOTE E) (CADR EXP))I 
(DIFF (CADDR EXP) ) ))))))))) 
((EQ (CAR EXP) (QUOTE TIMES)) 
( SIMPPLUS 
(MAPLIST 
(CDR EXP) 
(FUNCTION (LAMBDA (Y) 

(SIMPTIMES (CONS (DIFF (CAR YD (CHOICE (CAR Y) (CDR EXP)))) )))l) 
((EQ (CAR EXP) (QUOTE PLUS)) 

(SIMPPLUS (MAPLIST (CDR EXP) (FUNCTION (LAMBDA (Y) (DIFF (CAR Y)))))) ) 
(T (APPLY (GET CAR EXP) (QUOTE DIFF)) (LIST (CDR EXP)) (ALIST)l) ))) 
(CHOICE (LAMBDA (A 6) 

(COND ((EQ A (CAR 6)) (CDR B)) (T (CONS (CAR B) (CHOICE A (CDR B))))> I))) 



DEFINE 

( ( (BIGDIFF 



(LAMBDA (A B) 
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(SIMPTIMES (LIST IDIFF (CAR A)) 

(SUBST (CAR A) (QUOTE X) B) )))))> 

DEFINE 

(((DIFLOG (LAMBDA (A) , ,, 

(PROG NIL (SETQ A (COR A)) (RETURN (BIGDIFF A (QUOTE ( EXPT X -II)))) )) 
(DIFSIN (LAMBDA (A) (BIGDIFF A (QUOTE (COS X))))) 
(DIFCOS (LAMBDA (A) (BIGDIFF A (QUOTE (TIMES -1 (SIN X)))))» 
1DIFTAN (LAMBDA (A) (BIGDIFF A (QUOTE (EXPT (SEC X) 2))))) 
(DIFSEC (LAMBDA (A) (BIGDIFF A (QUOTE (TIMES (SEC X) (TAN X)))))) 
(DIFARCTAN (LAMBDA (A) (BIGDIFF A (QUOTE (EXPT (PLUS 1 (EXPT X 2)) -1))))) 
(DIFARCSIN (LAMBDA (A) 

(BIGDIFF A (QUOTE (EXPT (PLUS 1 (TIMES -1 (EXPT X 2))) -0.5EO))) )) 
(DIFCSC (LAMBDA (A) (BIGDIFF A (QUOTE (TIMES -1 (COT X) (CSC X)))))) 
(DIFCOT (LAMBDA (A) (BIGDIFF A (QUOTE (TIMES -I (EXPT (CSC X) 2)))))) 
(DIFARCCOS (LAMBDA (A) (MINUS (DIFARCSIN A)))) 
(DIFARCSEC 
(LAMBDA (A) 

(BIGDIFF A 

(QUOTE (EXPT (TIMES X 

(EXPT (DIFFERENCE (EXPT X 2) I) 
0.5EO )> 
-1 ))))) 
(DIFARCCSC (LAMBDA (A) (SIMPMINUS (LIST (DIFARCSEC A) ))) ) 
(DIF INTEGRAL (LAMBDA (X) 

(COND ((EQ (CADR X) VAR) (CAR X)) 
IT (SIMP (LIST (QUOTE INTEGRAL) (DIFF (CAR X)) (CADR X)))) ))))) 

ATTRIB 

(INTEGRAL (DIFF DIFINTEGRAL) ) 

ATTRIB 

(SIN (DIFF DIFSIN)) 

ATTRIB 

(COS (DIFF DIFCOS)) 

ATTRIB 

(TAN (DIFF DIFTAN1) 

ATTRIB 

(SEC (DIFF DIFSEC)) 

ATTRIB 

(ARCTAN (DIFF DIFARCTAN)) 

ATTRIB 

(ARCSIN (DIFF DIFARCSIN)) 

ATTRIB 

(LOG (DIFF DIFLOG) ) 

ATTRIB 

(CSC (DIFF DIFCSC) ) 

ATTRIB 

(COT (DIFF DIFCOT)) 

ATTRIB 

(ARCCOS (DIFF DIFARCCOS)) 
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ATTK IB 

( ARCSEC (DIFF DIFARCSEC) ) 



ATTRIB 

(ARCCSC (DIFF OIFARCCSC) ) 



DEFINE 

(((EXPAND2 (LAMBDA (EXP) (PROG23 (CSET SIMPIND T) I EXPAND1 EXP) (CSET SIMPIND NIL))) 

) 

( EXPAND1 

(LAMBDA 

( EXP) 

(COND 

((ATOM EXP) EXP) 

((AND (EQ (CAk EXP) (QUOTE EXPT)) 
(NOT (ATOM (CADR EXP) I I 
( INTEGERP (CADDR EXP) ) 
( EQ (CAADR EXP) (QUOTE PLUS)) 
(3REATERP (CADDR EXP) 01 
ILESSP (CADDR EXP) 6) ) 
(EXPANDEXPT (CADR EXP) (CADDR EXPI) ) 
((EQ (CAR EXP) (QUOTE TIMES)) 



(CDDR EXP) ) ) 1 ) 



(COND ( (CDDR EXP) 

(PRODEXPAND (EXPAND1 (CADR EXP)) 

(EXPAND1 (CONS (QUOTE TIMES) 
(ICDR EXP) (EXPAND1 (CADR EXPII) 
( T NIL) ) ) 
(T (SIMP1 IMAPLIST EXP (FUNCTION (LAMBDA (C) (EXPAND1 (CAR C))))))) ))) 
(PRUDEXPAMD ( LAMBDA (A B) 
(COND 
((NOT (OR (EQ (CAR A) (QUOTE PLUS)) (EQ (CAR B) (QUOTE PLUS)))) 

( SIMPTIMES (LIST A B) ) ) 
((MOT (EQ (CAR A) (QUOTE PLUS))) (TIMESLCOP A (CDR B))) 
((NOT (EC ICAR B) (QUOTE PLUS))) (TIMESLOOP B (CDR AD) 
(T (EXPAND (CDR A) (CDR BID I)))) 



DEFINE 

I ( (RAT 

(LA 

( E 

(P 



IONAL 
MB DA 
XP ) 
ROG ( 
( 



IZE 



W) 

RETUR 

(COND 

( (NO 

I ( SE 

w 

(M 
E 
( 



(EQ (CAR EXP) (QUOTE PLUS))) NIL) 



2 

XP 

QUOTE 
(PLUS 
( TIMtS 
(COEFFTT 
(C 
(FUNCTION 
(LAMBDA 
(C) 
(Ml 
C 

(CUOTE 
(EXPT 
(AA (FUNCTION (LAMBDA (AA) 
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(ANO (NOT (EQUAL AA 1) ) 
(NOT (EQUAL AA 0)) )))) 
(N (FUNCTION (LAMBDA (Nt 

(ANO (NUMBERP N) (LESSP N 01) llllllllll 
(COEFFTT (B TRUE) J ) 
(COEFFPT (A TRUE)) )) 
NIL ) ) 
1REPLACE W (OUOTE (TIMES (PLUS (QUOTIENT AC) B) C))) ) 
(T NIL) I)))))) 



FORM, SIN, DERIVATIVE-DIVIDES 



DEFINE 

(((TRUE1 (LAMBDA (A) (OR (NOT (NUMBERP A)) (NOT (ZEROP A))))) 
(INTEGERP1 (LAMBDA (A) (INTEGERP (SIMPTIMES (LIST 2 A))))) 
(VARP (LAMBDA (A) (EQUAL A VARM) 

(FREE1 (LAMBDA (A) (AND (FREE A) (OR (NOT (NUMBERP A)) (NOT (ZEROP A)))))) 
(FIXP1 (LAMBDA (A) (AND (NUMBERP A) (FIXP A)))) 
(MASTER (LAMBDA (A) 
(PROG NIL 

(FILcWRITE (QUOTE MANOVE) (QUOTE LISP) (QUOTE MASTERI1 
(FILEAPND 
(QUOTE MANOVE) 
(QUOTE LISP) 

(LIST (CONS (CAR A) (TRANSL (SIMP (CDR A))))) ) 
(CHAIN (QUOTE ((SAVE MOSES T) (R FULMAN MANOVE)))) 
(FILESEEK (QUOTE MANOVE) (QUOTE ANSI) 
(RETURN (SIMP (UNTR (READ)))) ))))) 



DEFINE 






( ( ( FORM 






(LAMBDA 






(EXPRES) 






(COND 






((FREE EXPRES) NIL) 






((ATOM EXPRES) NIL) 






((MEMBER (CAR EXPRES) 


(QUOTE 


(PLUS TIMES))) 


((LAMBDA (L) 






(PROG (Y) 






LOOP 






(COND 






((SETQ Y (FORM (CAR L) ) ) (RETURN Y) ) 


( (NOT (SETQ 


L (CDR 


L))) (RETURN NIL)) 


(T (GO LOOP)) ))) 




(CDR EXPRES) )) 






( (MEMBER (CAR EXPRES) 


(QUOTE 


(LOG ARCTAN ARCSIN))) 


(COND 






((SETQ ARG 






<M2 






EXP 






(LIST 






(QUOTE TIMES) 






(QUOTE (COEFFTT 


(C RAT8PRIME))) 


(CONS (CAR EXPRES) 




(COND ((EQ (CAR EXPRES) (QUOTE LOG)) 


(CONS (CADR EXPRES) 


(QUOTE (IB RAT8)))) ) 


(T (QUOTE UB 


RAT8)))) ))> 


NIL )) 
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(RATLOG EXP VAR (CONS (CONS (QUOTE A) EXPRES) ARG)) ) 
(T 
(PROG (Y Z) 
(COND 
((SETQ Y 

(FORM (COND ((EQ (CAR EXPRES) (QUOTE LOG)) (CADDR EXPRES)) 
( T (CADR EXPRES) ) ) ) ) 
(RETURN Y) ) 
( (AND 

(EQ (CAR EXPRES) (QUOTE LOG)) 
(SETQ Z (M2 (CADDR EXPRES) C NIL)) 
(FREE (CADR EXPRES) ) 
(SETQ Y 
(M2 
EXP 

(QUOTE (TIMES (COEFFTT (C RAT81) (COEFFTT (D ELEM))) ) 
NIL ) ) ) 
(RETURN 
( (LAMBDA 

(A 6 C D BASE) 
(SUBST 
EXPRES 
VAR 

(INTEGRATE 
(SIMPTIMES (LIST 
(SUBST 
(LIST 
(QUOTE QUOTIENT) 
(LIST 
(QUOTE DIFFERENCE) 
(LIST (QUOTE EXPT) BASE VAR) 
A ) 
B ) 
VAR 
C ) 
(LIST 
(QUOTE QUOTIENT) 
(LIST (QUOTE EXPT) BASE VAR) 
B ) 
(SUBST VAR EXPRES D) ) ) 
VAR ) ) ) 
(CDR (SASSOC (QUOTE A) Z) ) 
(CDR (SASSOC (QUOTE B) Z) ) 
(CDR (SASSOC (QUOTE C) Y)) 
(CDR (SASSOC (QUOTE D) Y)) 
(CADR EXPRES) ) ) ) 
(T (RETURN NIL) ) ) ) ) ) ) 
( (OPTRIG (CAR EXPRES) ) 
(COND 
((NOT (SETQ W (M2 (CADR EXPRES) C NIL))) (FORM (CADR EXPRES))) 
(T (PROG2 (SETQ POWERLIST T) (MONSTERTRIG EXP VAR (CADR EXPRES)))) )) 
((FIXP1 (CADDR EXPRES)) (FORM (CADR EXPRES))) 
( (FREE (CADR EXPRES) ) 
(COND 
( (SETQ W 
(M2 
EXP 

(QUOTE (TIMES (COEFFTT (R RAT8)) (EXPT (BASE FREE) (P POLYP))) ) 
NIL ) ) 
(CALLALGORT (SUBLIS W (QUOTE (R P BASED) VAR) ) 
((M2 (CADDR EXPRES) C NIL) (SUPEREXPT EXP VAR (CADR EXPRES))) 
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(T (FORM (CADDR EXPRES) I I )) 
((MOT (RAT8 (CAOR EXPRES))) (FORM (CADR EXPRES))) 
((AND (SETQ W (M2 (CADR EXPRES) RATROOTFORM NIL)) 
(OENOMFIND (CADDR EXPRES)) ) 
(PROG2 (SETQ POHERLIST T) tRATROOT EXP VAR (CADR EXPRES) W>) ) 
((NOT (INTEGERP1 (CADDR EXPRES))) 
(COND ((M2 EXP CHEBYFORM NIL) (CHEBY EXP VAR)) 
(T (FORM (CADR EXPRES))) )) 
((SETQ M (M2 (CADR EXPRES) D NIDI 
(COND 
((SETQ ARG 
(M2 
EXP 
(QUOTE (TIMES 

(EXPT (VAR VARP) -1) 
(COEFFTT (AA FREE)) 
(EXPT (SO Ml D) -0.5EO) )) 
NIL )) 
(SIMP 
(SUBST 
(LIST (QUOTE EXPT) VAR -1) 
VAR 

(ALGEB2 
(LIST 
(QUOTE TIMES) 
-1 

(REPLACE ARG (QUOTE AA) ) 
(LIST 
(QUOTE EXPT) 
(SETQ Y 
(REPLACE ARG 
(QUOTE (PLUS (TIMES A (EXPT VAR 2)) (TIMES B VAR) C) ))) 
-0.5E0 )) 
VAR 
Y 

(REPLACE ARG 
(QUOTE (((QUOTE* C) . A) ((QUOTE* B) . B) ((QUOTE* A) . C)) )))))) 
(T (ALGE82 EXP VAR (CADR EXPRES) W) ) )V 
((SETQ H (M2 (CADR EXPRES) E NIDI 

(PROG2 (SETQ POHERLIST T) (ROOTLINPROD EXP VAR (CAOR E*PRES) W>) ) 
((M2 EXP CHEBYFORM NIL) (CHEBY EXP VAR)) 

((NOT (M2 (SETQ W (EXPAND2 (CAOR EXPRES))) (CAOR EXPRES) NIL)) 
(PROG2 
(SETQ EXP (SIMP (SUBST H (CADR EXPRES) EXP))) 
(FORM (SIMP (LIST (QUOTE EXPT) M (CADOR EXPRES)))) )) 
((SETQ U (RATIONALIZE (CAOR EXPRES))) 
(PROG2 
(SETQ EXP (SIMP (SUBST W (CADR EXPRES) EXP))) 
(FORM (SIMP (LIST (QUOTE EXPT) W (CADOR EXPRES)))) )> 
(T NIL) ))))) 

DEFINE 

(( (INTEGRATE 
(LAMBDA 
(EXP VAR) 
(PROG (Y ARG POWERLIST B W C D E RATROOTFORM CHEBYFORM) 

(CONO ((FREE EXP) (RETURN (SIMPTIMES (LIST EXP VAR))))) 
(COND 
KNOT (EQ (CAR EXP) (QUOTE PLUS))) (GO D) I 
(T 
(RETURN 
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(SIMPPLUS (MAPLIST (CDR EXP) 

(FUNCTION (LAMBDA (C) (INTEGRATE! (CAR CI))) I)))) 

(COND ((SETQ Y (OIFFDIV EXP VAR) ) (RETURN Y)l) 
(SETQ Y 

(COND ((EQ (CAR EXP) (QUOTE TIMES)) (CDR EXP)) (T (LIST EXP))) ) 
(SETQ C 

(QUOTE (PLUS (COEFFPT (B FREE) (X VARP)) (COEFFPT (A FREE)))) ) 
(SETQ RATROOTFORM 
(QUOTE (TIMES 

(COEFFTT (E FREE)) 

(PLUS (COEFFPT (A FREE) (VAR VARP)) (COEFFPT (B FREED) 
(EXPT (PLUS (COEFFPT (C FREE) (VAR VARP)) (COEFFPT (0 FREE))) 
-1 )) )) 
(SETQ 
CHEBYFORM 
(QUOTE (TIMES 

(EXPT (VAR VARP) (Rl NUMBERP)) 

(EXPT (PLUS (TIMES (COEFFTT (C2 FREE)) (EXPT (VAR VARP) (Q FREED)) 
(COEFFP (CI FREE)) ) 
(R2 NUMBERP) ) 
(COEFFTT (A FREED D I 
(SETQ D 
(QUOTE (PLUS 

(COEFFPT (C FREE) (EXPT (X VARP) 21) 
(COEFFPT (B FREE) (X VARP) ) 
(COEFFPT (A FREE)) D ) 
(SETQ E 
(QUOTE (TIMES (PLUS (COEFFPT (A FREE) (VAR VARPD (COEFFPT (B FREED) 
(PLUS (COEFFPT (C FREE) (VAR VARPD (COEFFPT (D FREED) D) 

(CONO 
( (RATS (CAR Y) ) (GO SKIP)) 
((SETQ W (FORM (CAR Y) I) (RETURN WD 
(T (GO SPECIAL)) ) 
SKIP 

(SETQ Y (CDR YD 
(COND ((NULL Y) 

(RETURN (CONO ((SETQ Y (POWERLIST EXP VARD Y) 
(T (MASTER (CONS VAR EXPD) )))) 
(GO LOOP) 
SPECIAL 

(RETURN (CONO 

((NOT (M2 EXP (SETQ Y (EXPAN02 EXPD NIL)) (INTEGRATE Y VARD 
((AND (NOT POWERLIST) (SETQ Y (POWERLIST EXP VARD) Y) 
((SETQ Y (PARTS EXP VARD Y) 
(T (LIST (QUOTE INTEGRAL) EXP VAR)) DDD) 

DEFINE 

(((RAT8 (LAMBDA (EXP) 

(COND ((FREE EXP) T) 
( (ATOM EXP) T) 

((MEMBER (CAR EXP) (QUOTE (PLUS TIMES))) 
(AND (RAT8 (CAOR EXP)) 
(COND ((CDDR EXP) 

(RAT8 (CONS (CAR EXP) (CDDR EXPD) ) 
(T T) ))) 
((NOT (EQ (CAR EXP) (QUOTE EXPT))) NIL) 
((FIXP1 (CADDR EXPD (RAT8 (CADR EXP))) 
(T NIL) DID 



LOOP 
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DEFINE 

(((INTEGRATE1 (LAMBDA (A) (INTEGRATE A VAR) I ) ) > 

DEFINE 

(((POLYP (LAMBOA (EXP) 
(CONO 
((FREE EXP) T) 
((ATOM EXP) T) 

((MEMBEK (CAR EXP) (QUOTE (PLUS TIMES))) 
(AND (POLYP (CADR EXP)) 
(OR (NULL (CDDR EXP)) (POLYP (CONS (CAR EXPI (COOR EXP)))) )) 
KEQ (CAR EXP) (QUOTE EXPT1 ) 
UNO 
(NUMBERP (CAOOR EXPI) 
(INTE6ERP (CAODR EXPI) 
(GREATERP (CADOR EXP) 0) 
(POLYP (CADR EXP)) >) 
(T NIL) ))) 
(CALLALGORT 
(LAMBDA 
(A VAR) 
(PROG NIL 

(FILEHRITE (QUOTE MANOVE) (QUOTE LISP) (QUOTE SUPERALGORT ) I 
(FILEAPND 
(QUOTE MANOVE) 
(QUOTE LISP) 
(LIST 
(TRANSL (CAR AD 

(TRANSL (SIMPTINES (LIST (CADR A) (SIMPIOG (LIST (QUOTE E) (CADOR A)))) M 
VAR )) 
(CHAIN (QUOTE ((SAVE MOSES T) (R FULMAN MANOVE)!) I 
(FILESEEK (QUOTE MANOVE) (QUOTE ANSI) 
(RETURN (SIMP (UNTR (READ)))) ))>)) 

DEFINE 

(((SIN (LAMBOA (EXP VAR) (INTEGRATE (SIMP EXP) VAR))) 

(0PTRI6 (LAMBDA (A) (MEMBER A (QUOTE (SIN COS SEC TAN CSC COT))))) 
(ELEM 
(LAMBDA 
(A) 
(COND 
((FREE A) T) 
((ATOM A) NIL) 
((M2 A EXPRES NIL) T) 
(T (EVAL (CONS (QUOTE AND) 

(MAPLIST (COR A) (FUNCTION (LAMBDA (C) (ELEM (CAR Clllll ) 
NIL ))))))) 

DEFINE 

(((FREE (LAMBDA (A) 

(COND ((ATOM A) (NOT IEQ A VAft))) 

(t (AND (FREE (CAR A)) (FREE (COR A)))) III 
(VARP (LAMBDA (At (EQ A VAR))) I) 

DEFINE 
(((DEFINITEINTEGRAL 

(LAMBDA (EXP VAR LOWER UPPER) 
(PROG (Y) 

(SETQ Y (PRINT (INTEGRATE EXP VAR))) 

(RETURN (SIMPDIFFERENCE (LIST (SUBST UPPER VAR Y) 

(SUBST LOWER VAR Y) )))))) 
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(DOUBLEINTEGRAL 
(LAMBDA (EXP L) 

(PROG (Y) 

(SETQ Y 

(DEFINITEINTEGRAL EXP 

(CAAR L) 
(CADAR L) 

(CAR ICDDAR L) ) ) ) 
(RETURN (DEFINITEINTEGRAL Y 

(CAADR L) 

(CADADR L) 

(CAR (CDDADR L) ) ))))))) 

DEFINE 

( ( ( INTEGRALLOOKUP 
(LAMBDA 
(EXP ) 
(COND 
( (EQ (CAR EXP) (QUOTE LOG) ) 
(SIMP (SUBST 
(CADDR EXP) 
(QUOTE X) 

(QUOTE (PLUS (TIMES X (LOG E X)) (TIMES -1 X))) ))) 
((EQ (CAR EXP) (QUOTE PLUS)) (SIMPTIMES (LIST 0.5E0 EXP EXP))) 
((EQ (CAR EXP) (QUOTE EXPT)) 
(COND 
( (FREE (CADR EXP) ) 
(SIMPTIMES (SU8ST 
EXP 

(QUOTE A) 

(SUBST (CADR EXP) (QUOTE B) (QUOTE (A (EXPT (LOG E B) -l))l) ))) 
( (EQP (CADDR EXP) -1) 

(SIMP (SUBST (CADR EXP) (QUOTE X) (QUOTE (LOG EX)))) ) 
(T (SIMP (SUBST 

(SIMPPLUS (LIST (CADDR EXP) 1)) 
(QUOTE N) 
( SUBST 
(CADR EXP) 
(QUOTE X) 

(QUOTE (TIMES (EXPT N -1) (EXPT X N))) )))))) 
(T (SUBST 
(CADR EXP) 
(QUOTE X) 
(CDR (SASSOC 
(CAR EXP) 

(QUOTE ((SIN TIMES -1 (COS X)» 
(COS SIN X) 
(TAN LOG E (SEC X)) 

(SEC LOG E (PLUS (SEC X) (TAN X))) 
(COT LOG E (SIN X)) 

(CSC LOG E (PLUS (SEC X) (TAN X))) )) 
(QUOTE NILL) ))))))) 
I DIFFDIV 
( LAMBDA 
(EXP VAR) 

(PROG (YAXVDZWR) 
(SETQ X 
(M2 
EXP 

(QUOTE (TIMES (COEFFTT (A FREE)) (COEFFTT (B TRUE)))) 
NIL ) ) 
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(SETQ A (COR (SASSOC (QUOTE A) X) ) ) 
(SETQ EXP (COR (SASSOC (QUOTE B) X))) 
(COND 
((AND 

(EQ (CAR EXP) (QUOTE EXPT) ) 
(EQ (CAAOR EXP) (QUOTE PLUS)) 
(INTEGERP (CADDR EXP)) 
(LESSP (CADOR EXP) 6) 
(GREATERP (CADOR EXP) 0) ) 
(RETURN (SIMPTIMES (LIST A 

(INTEGRATE (EXPANDEXPT (CADR EXP) (CADDR EXP)) VAR) ))))) 
(SETQ EXP 
(COND ((EQ (CAR EXP) (QUOTE TIMES)) EXP) 
(T (LIST (QUOTE TIMES) EXP)) )) 
(SETQ Z (CDR EXP)) 

(SETQ Y (CAR Z)> 
(SETQ R 
(LIST (QUOTE PLUS) 
(CONS (QUOTE CQEFFPT) 
(CONS (QUOTE (C FREED) (CHOICE Y (CDR EXP))) >)> 
(COND 
((SETQ U (M2 (DIFF1 Y VAR) R NIDI 
(RETURN 
(SIMPTIMES 
(LIST 
Y 
A 
Y 

(SIMPEXPT (LIST (SIMPTIMES (LIST 2 (COR (SASSOC (QUOTE C) W)))) 
-1 ))))))) 
(COND 
((MEMBER (CAR Y) (QUOTE (EXPT LOGO) 
(COND 
((FREE (CADR Y>> (SETQ H (CAODR Y>)> 
((FREE (CAODR Y)> (SETQ W (CADR YD) 
(T (SETQ WO)))) 
((MEMBER (CAR Y) (QUOTE (PLUS TIMES))) (SETQ W YD 
(T (SETQ M (CADR Y) ) ) ) 
(COND 
((SETQ 
W 

(COND 
((AND 

(EQ (CAR (SETQ X (DIFF1 M VAR) ) ) (QUOTE PLUS)) 
(EQ 
(CAR (SETQ V (CAR (SETQ D (CHOICE Y (COR EXP)))))) 
(QUOTE PLUS) ) 
(NOT (CDR D)l I 
(COND ((SETQ (MATCHSUM (COR X) (CDR V))) 
(LIST (CONS (QUOTE C) D) ) ) 
(T NIL) )) 
(T (M2 X R NIL)) >) 
(RETURN 
(COND 
((NULL (SETQ X { INTEGRALLCOKUP YD) NIL) 
(T 
(SIMPTIMES 
(LIST 
X 
A 
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(COND 
((EQ W T) 1) 

(T (SIHPEXPT (LIST (CDR (SASSOC (QUOTE C) W)) -1)1) >))>)))) 
ISETQ Z (COR Z)) 
(COND ((NULL Z) (RETURN NIL))) 
(GO A) ))))) 

DEFINE 

(((TRUE (LAMBDA (A) T) ) ) ) 

DEFINE 
KtMATCHSUM 
(LAMBDA 
(ALIST BUST) 
(PROG (R S C D) 
(SETQ S 
(N2 
(CAR ALIST) 

(QUOTE (TIMES (COEFFTT (A FREE)) (COEFFTT (C TRUE)))) 
NIL )) 
(SETQ C (CDR (SASSOC (QUOTE CI S>>> 
(COND 
((NOT (SETQ R 
(M2 
(CONS (QUOTE PLUS) BLIST) 
(LIST 
(QUOTE PLUS) 
(CONS (QUOTE TIMES) 
(CONS 
(QUOTE (COEFFTT (B FREED)) 
(COND ((EQ (CAR C) (QUOTE TIMES)) (CDR CI) 
(T (LIST O) ))) 
(QUOTE (D TRUE)) ) 
NIL ))) 
(RETURN NIL) )) 
(SETQ D 
(SIMP (LIST 
(QUOTE TIMES) 
(SUBLIS S (QUOTE A) 1 

(LIST (OUOTE EXPT) (SUBLIS R (QUOTE 6)) -1) ))) 
(COND KM2 (CONS (QUOTE PLUS) ALIST) (TIMESLOOP D BLIST) NIL) 
(RETURN 0) ) 
(T (RETURN NIL)) )))))) 

OEFINE 

(((EXPANDEXPT (LAMBDA (A N) 

(PROG (Y) 

(SETQ Y A) 
LOOP 

(SETQ N (SUB1 N)l 

(COND KZEROP N) (RETURN Y))) 

(SETQ Y 

(EXPAND (CDR A) 

(COND ((EQ (CAR Y) 

(QUOTE PLUS) ) 
(CDR Y) ) 
(T (LIST Y)) ))) 
(GO LOOP) ))))) 

METHODS 1-9 OF SIN'S SECGNO STAGE 
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(SIMPLOG (LIST (QUOTE E) BASE)))) )) 



DEFINE 

( ( I SUPEREXPT 
(LAMBDA 
(EXP VAR BASE) 
(PROG (EXPTFLAG Y W) 

( SETQ Y (ELEMXPT EXP) ) 
(COND (EXPTFLAG (RETURN NIL))) 
(RETURN 
( SIMP 
( SUBST 
(LIST (QUOTE EXPT) BASE VAR) 
VAR 

( INTEGRATE 
( SIMPQUOTIENT 
(LIST Y 
(SIMPTIMES (LIST VAR 
VAR ))))))) 
( ELEMXPT 
(LAMBDA 
(EXP ) 
(COND 
( (FREE EXP) EXP) 
((ATOM EXP) (SETQ EXPTFLAG 
((NOT (EQ (CAR EXP) (QUOTE 
(CONS (CAR EXP) 
(MAPLIST (CDR EXP) (FUNCTION 
( (NOT (FREE (CADR EXP) ) ) 

(LIST (QUOTE EXPT) (ELEMXPT (CADR EXP)) (ELEMXPT (CADDR EXP))) ) 
( (NOT (EQ (CADR EXP) BASE) ) 
(ELEMXPT (LIST 
(QUOTE EXPT) 
BASE 
(SIMP (LIST 

(QUOTE TIMES) 

(LIST (QUOTE LOG) BASE (CADR EXP)) 
(CADDR EXP) ) ) ) ) ) 
((NOT (SETQ W 
(M2 
(CADDR EXP) 

(QUOTE (PLUS (COEFFPT (A FREE) (VAR VARP)) (COEFFPT (B FREE)))) 
NIL )) ) 
(LIST (CAR EXP) BASE (ELEMXPT (CADDR EXP))) ) 
(T (SIMP (SU8ST 
BASE 

(QUOTE BASE) 
(SUBLIS W (QUOTE (TIMES (EXPT BASE B) (EXPT VAR A)))) )))))))) 



T) ) 
EXPT) ) ) 



(LAMBDA (C) (ELEMXPT (CAR C))))) )) 



DEFINE 


( ( ( SU3ST10 


(LAMBDA ( 


(COND 


( (ATOM 


((AND ( 


(LIST 


(T (MAP 


(POKERLIST 


(LAMBDA 


(EXP VAR 



EXP ) 

EXP) EXP) 

EQ (CAR EXP) (QUOTE EXPT)) (EQ (CADR EXP) VAR)) 

(CAR EXP) VAR (INTEGERP (QUOTIENT (CADDR EXP) D))) ) 

LIST EXP (FUNCTION (LAMBDA (C) (SUBSTIO (CAR C))))>) ))) 
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DEFINE 

(((INTEGERP (LAMBDA 
(PROG (Y) 

(SETQ Y 1) 



(A) 



(COND ((NOT (NUMBERP A)) (RETURN NIDI 
((NOT (FLOATP A)) (RETURN All ) 



(COND 

UEQP Y A) (RETURN Y) ) 

((LESSP Y A) (GO A)) 

((NOT (GREATERP (DIFFERENCE 
(SETQ Y (SUB1 YD 
(GO C) 



Y A) 0.98999999E0) ) (RETURN NIL)) ) 



(COND ((NOT (GREATERP 
(SETQ V (ADD1 Y) ) 
(GO C) ))) 



(DIFFERENCE A Y) 0.98999999E0 ) ) (RETURN NIL)) ) 



(CAR EXP) (CDDR EXP)) IND) ) )) 



(CDDR EXP) Til 



(FIXP1 (LAMBDA (A) (AND (NUMBERP A) (FIXP A)))) 
(RAT3 (LAMBDA (EXP IND) 
(COND 
((FREE EXP) T) 
( (ATOM EXP) IND) 

((MEMBER (CAR EXP) (QUOTE (TIMES PLUS))) 
(AND (RAT3 (CADR EXP) IND) 
(OR (NULL (CDDR EXP)) (RAT3 (CONS 
((NOT (EQ (CAR EXP) (QUOTE EXPT) ) ) 
(COND ((EQ (CAR EXP) (QUOTE LOG)) (RAT3 
(T (RAT3 (CADR EXP) T) ) )) 
((FREE (CADR EXP)) (RAT3 (CADOR EXP) T)) 
(I FIXP 1 (CAODR EXP)) (RAT3 (CADR EXP) IND)) 
(UNO (M2 (CADR EXP) RATROOT NIL) (DENOMFINO (CAODR EXP)) I 
(SETQ ROOTLIST (CONS (DENOMFIND (CAODR EXP) > ROOTLIST1I ) 
(T (RAT3 (CADR EXP) NIL)) ))) 
(SUBST4 (LAMBOA (EXP) 
(COND 
((FREE EXP) EXP) 
((ATOM EXP) A) 
((NOT (EQ (CAR EXP) (QUOTE EXPT))) 

(MAPLIST EXP (FUNCTION (LAMBDA (C) (SUBST4 (CAR C))>>) ) 
(IM2 (CADR EXP) RATROOT NIL) 
(LIST (CAR EXP) B (INTEGERP {TIMES K (CADOR EXP)))) ) 



(T (LIST (CAR EXP) (SUBST4 
(FINDINGK (LAMBDA (LIST) 
(PROG (K) 

(SETQ K 1) 



(CADR EXP)) (SUBST4 (CAODR EXP)))) ))) 



(COND ((NULL LIST) (RETURN K) I ) 
(SETQ K (QUOTIENT (TIMES K (CAR LIST)) 
(SETQ LIST (CDR LIST)) 
(GO A) ))) 
(DENOMFIND (LAMBDA (Kl 
(PROG (Y) 

(COND ((NOT (NUMBERP K) ) (RETURN NIL))) 
(SETQ Y 1) 



(GCO K (CAR LIST)))) 



(COND 
(SETQ 
(COND 
(RETURN 
(GCO (LAMBDA (A 
(PROG NIL 



((INTEGERP (TIMES 
Y (ADD1 Y>) 
((LESSP Y 25) (GO 

NIL) ))) 

B) 



K Y)) (RETURN Y>>) 
A))) 
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KZEROP A) (RETURN 
B (REMAINDER B AM 
KZEROP B) (RETURN 
A (REMAINDER A B)l 
))) 



(ABSOLUTE B)))l 



(ABSOLUTE A)))) 



VAR)) (RETURN Y)>) 
(RETURN NIL))) 



(COND 
(SETQ 
(COND 
(SETQ 
(60 A) 
(RATROOT 
(LAMBDA 
(EXP VAR RATROOT W) 
(PROG (ROOTLIST K Y Wl ) 

(COND ((SETQ Y (CHEBY EXP 
(COND ((NOT (RAT3 EXP T) ) 
(SETQ K (PINDINGK ROOTLIST)) 
(SETQ Wl (CONS (CONS (QUOTE K) K) MM 
(SETQ 
Y 

(SUBST41 
EXP 

(SIMP (SUBLIS Wl 
(QUOTE (QUOTIENT 

(DIFFERENCE B (TIMES 
(DIFFERENCE 
VAR I) 
(SETQ 
Y 

( INTEGRATE 
(SIMP 
(LIST 
(QUOTE TIMES) 
Y 

(SUBLIS 
Wl 

(QUOTE (QUOTIENT 
(TIMES E 
(DIFFERENCE 
(TIMES A K 
(TIMES B C K 



D (EXPT VAR K)») 
(TIMES C (EXPT VAR K)) A) 



)))) 



(EXPT 
(EXPT 



VAR 
VAR 



(PLUS -1 K)>> 
(PLUS -1 K))) )) 
C (EXPT VAR K)) A) 



(EXPT (DIFFERENCE (TIMES C (EXPT VAR K)) A) 2) ))))) 
VAR )) 
(RETURN (SIMP (SUBST 

(SIMP (LIST IQUOTE EXPT) RATROOT (LIST (QUOTE EXPT) K -1))) 

VAR 

Y )))>)))) 



DEFINE 

(( (SUBST41 



(LAMBDA (EXP A B) (SUBST4 EXP))))) 



DEFINE 
(( (CHEBY 
(LAMBDA 
(EXP VAR) 

(PROG (Rl R2 Dl 02 Nl N2 W Q) 
(COND 
((NOT 
(SETQ 
W 

( M2 
EXP 
(QUOTE (TIMES 

(EXPT (VAR VARP) (Rl NUMBERP) ) 

(EXPT (PLUS (TIMES (COEFFTT (C2 FREE)) 
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(EXPT (VAR VARP) (Q FREE1M ) 
(COEFFP (CI FREE)) ) 
(R2 NUMBERP) ) 
(COEFFTT (A FREE)) )) 
NIL ))> 
(RETURN NIL) )) 
(SETQ Q (COR (SASSOC (QUOTE Q) W) ) ) 
(SETQ 
W 

(CONS 
(CONS (QUOTE A) 

(SIMPQUOTIENT (LIST (CDR (SASSOC (QUOTE A) WD Q) ) ) 
(CONS 
(CONS 
(QUOTE Rl) 

(SIMPQUOTIENT (LIST ISIMPPLUS (LIST 
1 

(SIMPMINUS (LIST Q) ) 
(COR (SASSOC (QUOTE Rl ) W) I ) ) 
Q ))) 
W ))) 
(SETQ Rl (CDR (SASSOC (QUOTE Rl) WD) 
(SETQ R2 (COR (SASSOC (QUOTE R2) W) ) ) 
(SETQ W (REVERSE W) ) 
(CONO 
((NOT (AND 

(SETQ Dl (DENOMFIND RID 
(SETQ D2 (DENOMFIND R2D 
(SETQ Nl (INTEGERP (TIMES Rl ODD 
(SETQ N2 (INTEGERP (TIMES R2 02))) 
(SETQ W 
(CONS (CONS (QUOTE Dl) Dl I 
(CONS (CONS (QUOTE 02) 02) 
(CONS (CONS (QUOTE Nl ) Nl ) 
(CONS (CONS (QUOTE N2) N2) W) )))))) 
(RETURN NIL) ) 
((AND (INTEGERP Rl) (GREATERP Rl 0)) 
(RETURN 
(SIMP 
ISUBST 
(SU6LIS W (QUOTE (PLUS CI (TIMES C2 (EXPT VAR QUID 
VAR 

(INTEGRATE 
(EXPAND 
(SUBLIS W 
(QUOTE ((TIMES 
A 

(EXPT VAR R2) 

(EXPT C2 (MINUS (PLUS Rl ID) )))) 
(CDR (EXPANDEXPT (SUBLIS M (QUOTE (PLUS VAR (TIMES -1 CD))) 
Rl D) 
VAR ) D D 
((INTEGERP R2) 
(RETURN 
(SIMP 
(SUBST 
(SUBLIS H (QUOTE (EXPT VAR (QUOTIENT C DID)) 
VAR 

(MASTER 

(CONS 

VAR 
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(SIMP 
(SUBLIS H 
(QUOTE (TINES 
Dl 
A 

(EXPT VAR (PLUS Nl Dl -111 

(EXPT (PLUS (TIMES C2 (EXPT VAR Dill Cll R2I llllllllll 
((AND (INTEGERP Rll (LESSP Rl 0)1 
(RETURN 
(SIMP 
(SUB ST 
(SUBLIS M 
(QUOTE (EXPT (PLUS CI (TIMES C2 (EXPT VAR QUI 
(QUOTIENT 1 D2I III 
VAR 

(MASTER 

(CONS 

VAR 

(SIMP (SUBLIS M 
(QUOTE (TIMES 
A 

Dl 

(EXPT C2 (MINUS (PLUS Rl It) I 
(EXPT VAR (PLUS Nl Dl -1)1 

(EXPT (DIFFERENCE (EXPT VAR Dl) CI) Rl) )))))))>)) 
((INTEGERP (SIMPPLUS (LIST Rl R2>)) 
(RETURN 
(SIMP 
(SUB ST 
(SUBLIS M 
(QUOTE (EXPT (QUOTIENT (PLUS CI (TIMES C2 (EXPT VAR QUI 
(EXPT VAR Q) I 
(QUOTIENT 1 Dll ))) 
VAR 

(MASTER 

(CONS 

VAR 

(SIMP (SUBLIS W 
(QUOTE (TIMES 
-1 
A 

Dl 

(EXPT CI (PLUS Rl R2 1)1 
(EXPT VAR (PLUS N2 Dl -1)1 
(EXPT (DIFFERENCE (EXPT VAR Dl ) C2» 
(TIMES -1 (PLUS Rl R2 2)1 I) I)))))))) 
(T (RETURN NIL)) ))>))) 

DEFINE 

(((ALGEB (LAMBDA (A B C D) (ALGEB2 ABC (CONS NIL DIIDII 

DEFINE 
(((ALGEB2 
(LAMBDA 
(EXP VAR SQUARE U) 
(PROG (A Y B C Fl Al Yl XI E D H G) 

(SETQ A (CDR (SASSOC (QUOTE A) W) ) ) 
(SETQ B (CDR (SASSOC (QUOTE B) W) J ) 
(SETQ C (CDR (SASSOC (QUOTE C) U) ) ) 
(COND KNOT (RAT6 EXP)) (RETURN NIL))) 
(SETQ Yl 
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LI 



L2 



L4 



L3 



L5 



(SIMP (LIST 
(QUOTE PLUS) 
VAR 

(LIST (QUOTE QUOTIENT) B (LIST (QUOTE TIMES) 2 C) ) ))) 
(SETQ XI 
(SIMP (LIST 

(QUOTE DIFFERENCE) 
VAR 

(LIST (QUOTE QUOTIENT) B (LIST (QUOTE TIMES) 2 O) ))) 
(SETQ Al 
(SIMP (LIST 

(QUOTE DIFFERENCE) 
A 

(LIST 
(QUOTE QUOTIENT) 
(LIST (QUOTE EXPT) B 2) 
(LIST (QUOTE TIMES) 4 C) )))) 
(COND 
((AND (NUMBERP C) (GREATERP C 0) ) (GO LI)) 
((AND (NUMBERP C) (LESSP C 0)) (GO L2)l 
((ASKPOS C) (GO LID 
((ASKNEG C) (GO L2>) 

((ASKIT C (QUOTE POSITIVE)) (GO LI ) ) 
((ASKIT C (QUOTE NEGATIVE)) (GO L2>> 
(T (RETURN (ALGEB EXP VAR SQUARE W))) ) 

(COND 
((AND (NUMBERP Al) (GREATERP Al 0)) (GO L3>) 
((AND (NUMBERP Al) (LESSP Al 0)) (GO L5») 
((AND (NUMBERP Al) (ZEROP AD) (GO L4>) 
((ASKPOS All (GO L3)) 
((ASKNEG Al) (GO L5>) 

((ASKIT Al (QUOTE POSITIVE)) (GO L3) ) 
KASKIT Al (QUOTE NEGATIVE)) (GO L5) ) 
((ASKZERO Al) (GO L4)) 
(T (RETURN (ALGEB EXP VAR SQUARE W))> ) 

(COND 
((AND (NUMBERP Al) (GREATERP Al 0)) (GO L6>) 
((AND (NUMBERP Al ) (LESSP Al 0)) 

(RETURN (ALGEB EXP VAR SQUARE H)) ) 
((ASKPOS Al) (GO L6)> 

((ASKIT Al (QUOTE POSITIVE)) (GO L6) ) 
(T (RETURN (ALGEB EXP VAR SQUARE W))> ) 

(SETQ C (SIMPEXPT (LIST C 0.5E0))) 

(SETQ Y (SUBST6 EXP XI (SIMP (LIST (QUOTE TIMES) C VAR)))) 

(SETQ V (INTEGRATE (SIMP V) VAR)) 

(RETURN (SIMP (SUBST Yl VAR Y) ) > 

(SETQ H (QUOTE (ARCTAN X))) 

(SETQ E (QUOTE (TAN X))) 

(SETQ Fl (QUOTE (SEC X))) 

(SETQ G (QUOTE (EXPT (SEC X) 2))) 

(GO GETOUT) 

(SETQ H (QUOTE (ARCSEC XI)) 

(SETQ E (QUOTE (SEC X))) 

(SETQ Al (SIMPMINUS (LIST Al))) 

(SETQ Fl (QUOTE (TAN X) II 

(SETQ G (QUOTE (TIMES (TAN X) (SEC X)))) 
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(COND 
{(NUMBERP (CADDR O) (INTEGERP (QUOTIENT (CACDR C) 2))) 
((ATOM (CADR O) (GET (CADR C) (QUOTE POSITIVE))) 
(T NIL) ) ) 
(T NIL) ) ) ) ) ) 



DEFINE 








( ( (PFCTSQ 


(LAMBDA (X) 






(PROG 


( Y) 






A 


(SETQ Y 1) 






(COND ( (EQP ( TIMES Y Y) 


X) 


(RETURN Y) ) 




( (GREATERP (TIMES Y Y) 


X) 


(RETURN NIL) ) 




(SETQ Y ( ADD1 Y) ) 







( GO A ) ) ) ) 
(RAT6 (LAMBDA (EXP) 
(COND 
( ( FREE EXP ) T) 
((ATOM EXP) T) 

((MEMBER (CAR EXP) (QUOTE (PLUS TIMES))) 
(AND (RAT6 (CADR EXP) ) 
(OR (NULL (CDDR EXP)) (RAT6 (CONS (CAR EXP) (CDDR EXP)))) )) 
((NOT (EQ (CAR EXP) (QUOTE EXPT))) NIL) 
((FIXP1 (CADDR EXP)) (RAT6 (CADR EXP))) 

((NOT (INTEGERP (SIMPTIMES (LIST 2 (CADDR EXP))))) NIL) 
(T (M2 (CADR EXP) SQUARE NIDI ))) 
(SUBST6 
(LAMBDA 
(EXP A B) 

(COND ( ( FREE EXP) EXP) 
( (ATOM EXP) A) 

((MEMBER (CAR EXP) (QUOTE (PLUS TIMES))) 
(CONS (CAR EXP) 

(MAPLIST (CDR EXP) 

(FUNCTION (LAMBDA (C) (SUBST6 (CAR C) A B))) ))) 
((NOT (EQ (CAR EXP) (QUOTE EXPT))) (ERROR)) 
( (FIXP1 (CADDR EXP) ) 

(LIST (CAR EXP) (SUBST6 (CADR EXP) A B) (CADDR EXP)) ) 
(T (LIST (CAR EXP) B (INTEGERP (TIMES 2 (CACDR EXP))))) ))) 
(TRIGSQRT 
(LAMBDA 
(EXP VAR SQUARE W) 
(PROG (Y A B C D E Fl G H) 

(SETQ A (CDR (SASSOC (QUOTE A) W))) 
(SETQ B (CDR (SASSOC (QUOTE B) W) ) ) 
(COND ((OR (NOT (NUMBERP A)) (NOT (NUMBERP B))) 
(RETURN (ALGEB EXP VAR SQUARE W)) ) 
((NOT (RAT6 EXP)) (RETURN NIL)) ) 
(COND ( (GREATERP A 0) 

(COND ( (GREATERP B 0) 

(AND (SETQ H (QUOTE (ARCTAN X))) 
(SETQ E (QUCTE (TAN X) I ) 
(SETQ Fl (QUOTE (SEC X) ) ) 
(SETQ G (QUOTE (EXPT (SEC X) 2))) )) 
(T (AND (SETQ E (QUOTE (SIN X))) 
(SETQ G (QUOTE (COS XI) ) 
(SETQ B (MINUS B)> 
(SETQ Fl (QUOTE (COS X) ) ( 
(SETQ H (QUOTE (ARCSIN X))) )))) 
(T (AND (SETQ E (QUOTE (SEC X))) 
(SETQ A (MINUS A) ) 



(COND 



( SETC 
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( (NOT 

( (NOT 

Y 

( SUBST6 



{SETQ Fl (QUOTE (TAN X) ) ) 

(SETQ G (QUOTE (TIMES (TAN X) (SEC X)))) 

(SETQ H (QUOTE (ARCSEC X))l ))) 

(SETQ C (PFCTSQ (QUOTIENT A B)))) (RETURN NIL)) 

(SETQ D (PFCTSQ A))) (RETURN NIL)) ) 



EXP 
(SIMP 



(LIST 



(SIMP (LIST 



(SETQ Y (SIMP (LIST (QUOTE 
(SETQ Y ( TRIGINT Y VAR) ) 
(RETURN (SIMP (SUBST (SUBST 



(QUOTE TIMES) 
C 

(SUBST 
(QUOTE 


(SUBST 
TIMES) 



VAR (QUOTE 
TIMES) 

VAR (QUOTE 
C (SUBST 



X) E) ) ) 



X) 

VAR 



Fl) I )) ) 
(QUOTE X) 



G) Y) ) ) 



(LIST (QUOTE TIMES) 

(LIST (QUOTE EXPT) 
VAR ) 
X) 



C -1) 



(QUOTE 
H ) 



VAR 

Y )))))>)) 



DEFINE 

( ( ( ALGEB 

(LAMB 

(EXP 

(PRO 



DA 

VAR 
G (A 



SQUARE W) 
B C Al CI 
A (COR 
B (CDR 
C (CDR 
( (NOT 



Y PROBL) 

(SASSOC (QUOTE A) WD) 
(SASSOC (QUOTE B) W) ) ) 
(SASSOC (QUOTE C) W) ) ( 
(RAT6 EXP)) (RETURN NIL))) 



C) ) 
0.5E0) ) ) 



( SETQ 
( SETQ 
( SETQ 
(COND 
(COND 
((AND (NOT (NUMBERP O) (ASK 

(SETQ CI ( SIMPEXPT (LIST C 
( (NOT (NUMBERP C) ) (GO A) ) 
((NOT (GREATERP C 0)) (GO A)) 
( T ( SETg CI (StMPSGRT C) ) ) > 
(SETQ Y 
(SUBST6 
EXP 

I SUBSTL (A B CI VAR) 
(QUOTIENT (DIFFERENCE (EXPT VAR 2) A) 
(PLUS B (TIMES 2 (TIMES VAR CD)) )) 
(SUBSTL (A B VAR CI) 
(QUOTIENT (PLUS (TIMES (EXPT VAR 2) CI) 
(PLUS B (TIMES 2 (TIMES VAR CI))) )))) 
( SETQ 
PROBL 
(LIST 
(QUOTE TIMES) 
Y 

(SUBSTL (A B CI VAR) 
(TIMES 2 
( TIMES (PLUS (TIMES 6 
(EXPT (PLUS B (TIMES 
(SETQ Y 
(SUBSTL (VAR CI SQUARE) 
(PLUS (TIMES VAR CI) (EXPT 
(GO B) 



(TIMES B VAR) (TIMES A CI) ) 



VAR) (TIMES 
2 (TIMES VAR 



(EXPT VAR 2) CI) 
CD ) ) -2) ) ) ) ) ) 



(TIMES A CD) 



SQUARE (QUOTIENT 1 2) ) ) ) I 
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(COND 
((AND (NOT (NUMBERP All (ASK A)) 

(SETQ Al (SIMPEXPT (LIST A 0.5E0D) I 
((NOT (NUMBERP A)) (ERROR (QUOTE (NOT YETM)I 
(ILESSP A 01 (ERROR (QUOTE (NOT YET)))) 
(T (SETQ Al (SIMPSQRT AD) ) 
(SETQ Y 
(SUBST6 
EXP 
(SUB STL 



(B 



C Al VAR) 
(QUOTIENT (DIFFERENCE (TIMES 
(DIFFERENCE C (EXPT VAR 2)) 
(SUBSTL (B C Al VAR) 
(QUOTIENT (PLUS 

(TINES Al (EXPT VAR 2) ) 
(TIMES -1 (TIMES B VAR)) 
(TIMES Al C) ) 
(DIFFERENCE C 
(SETQ 
PROBL 
(LIST 
(QUOTE TIMES) 
Y 



2 (TIMES 
)) 



VAR AD) B) 



(EXPT VAR 2)) )))) 



(SUBSTL (B 


C Al VAR) 












(TIMES 














(TIMES 2 














(PLUS 














(TINES 


Al (EXPT VAR 2)) 










(TIMES 


-1 (TIMES B 


VAR)) 










(TIMES 


Al C) )) 












(EXPT (DIFFERENCE C 


(EXPT 


VAR 


2)1 


-2) 


>))) 


(SETQ Y 














(SUBSTL (VAR Al SQUARE) 












(QUOTIENT 1 


[DIFFERENCE 


(EXPT 


SQUARE 


(QUOTIENT 



1 2)) Al) VAR) )) 



(RETURN (SIMP (UNTR (SUBST Y VAR (MASTER (CONS VAR PROBL)))))) DID 

DEFLIST 
(((SUBSTL 

(LAMBOA (A ALIST) 

(SUBLIS (MAPLIST (CAR A) 

(FUNCTION (LAMBDA (B) 

(CONS (CAR B) 

(EVAL (CAR B) ALIST) )))) 
(CADR A) )))) 
FEXPR ) 



DEFINE 

(((SIMPSQRT (LAMBDA (X) 

(PROG (Y) 

(SETQ Y 11 
A 



(COND ((EQP (TIMES Y Y) X) (RETURN YD 
((GREATERP (TIMES Y Y) X) 
(RETURN (LIST (QUOTE EXPT) 
X 

(QUOTE (QUOTIENT 1 2D )))) 
(SETQ Y (ADD1 Y) ) 
(GO A) ))))) 
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(SUBVAR 
(SUBLIS 
Y 

(QUOTE (A (DIFFERENCE 
(QUOTIENT 
(SIN (TIMES (DIFFERENCE M N> X)) 
(TIMES 2 (DIFFERENCE M N) ) ) 
(QUOTIENT (SIN (TIMES (PLUS H N) XII 
(TIMES 2 (PLUS M Nl ) )))))>))) 
((AND (EQ B (QUOTE COS)) (EQ D (QUOTE COS))) 
(RETURN 
(SIMPTIMES 
(SUBVAR 
(SUBLIS 
Y 

(QUOTE (A (PLUS 
(QUOTIENT 
(SIN; (TIMES (DIFFERENCE M N) X) ) 
(TIMES 2 (DIFFERENCE M N) ) ) 
(QUOTIENT (SIN (TIMES (PLUS M N) X)) 
(TIMES 2 (PLUS M N) J ))))))))> 
((OR (AND 

(EQ B (QUOTE COS)) 

(SETQ M (CDR (SASSOC (QUOTE M) Y))) 

(RPLACD (SASSOC (QUOTE M) Y) (CDR (SASSOC (QUOTE N) Y))) 
(RPLACD (SASSOC (QUOTE N) Y) Wl ) 
T ) 
(RETURN 
(SIMPTIMES 
(SUBVAR 
(SUBLIS 
Y 

(QUOTE (-1 A 
(PLUS 
(QUOTIENT 
(COS (TIMES (DIFFERENCE M N) X)) 
(TIMES 2 (DIFFERENCE M N) ) ) 
(QUOTIENT (COS (TIMES (PLUS M N) X)) 
(TIMES 2 (PLUS M N) ) 111))))))) 

(COND 
( (NOT 
(SETQ 
Y 

(PROG2 
(SETQ TRIGARG VAR) 
(M2 
EXP 
(QUOTE (TIMES 

(COEFFTT (A FREE)) 

KB TRIG1) (TIMES (X VARP) (COEFFTT (N INTEGERP)))) 
(COEFFTT (C SUPERTRIG)) I) 
NIL )))) 
(RETURN NIL) )) 
(RETURN 
(INTEGRATE 
(EXPAND2 
(LIST 
(QUOTE TIMES) 
(REPLACE Y (QUOTE CI I 
(CONO 
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((EC (SETQ B (REPLACE Y (CUOTE B))) (QUOTE COS)) 
( SUBST 
VAR 

(QUOTE X) 

(SUPERCOSNX (REPLACE Y (QUOTE Nil) )) 
(T (SUBST VAR (QUOTE XI (SUPERSINX (REPLACE Y (QUOTE Nil)) )))) 
VAR I ) 
A 

(SETC W (SUBST2 EXP TRIGARGI) 
(SETQ B 
(CDR (SASSOC (QUOTE B) 
(M2 
TRIGARG 

(QUOTE (PLUS (COEFFPT (B FREE) (X VARP1) (COEFFPT [A FREE))) ) 
MIL ) ) ) ) 
(RETURN (SUBST TRIGARG VAR (TRIGINT ( S I MPQUCT I ENT (LIST W B)) VAR)) 111) 
(TRIG2 (LAMBDA (A) (MEMBER A (QUOTE (SIN COS TAN CCT SEC CSCI1II) II 

DEFINE 

( ( ( SUPERSINX (LAMBDA (N) 

( (LAMBDA (I ) 

(EXPAND2 (LIST (CUOTE TIMESI 
I 

(SINMX (TIMES IN)) ) ) ) 
(COND [ (LESSP N 0) -1 ) (T 1) ) I ) I 
(SUPERCOSNX (LAMBDA (N) 

((LAMBDA (I) (EXPAND2 (COSNX (TIMES I N)))) 
(COND ( (LESSP N 0) -1 ) (Til) ) ) ) 
1SINNX (LAMBDA (N) 

(COND ((EQUAL N 1) (QUOTE (SIN X))) 
(T (LIST (QUOTE PLUS) 

(LIST (QUOTE TIMES) 

(CUOTE (SIN X) ) 
(COSNX (SUB1 Nil ) 
(LIST (QUOTE TIMES) 

(QUOTE (COS X) ) 
(SINNX (SUB1 N) ) )))))) 
(COSNX (LAMBDA (N) 

(COND ((EQUAL N 1) (QUOTE (COS X))) 
(T (LIST (QUOTE PLUS) 

(LIST (QUOTE TIMES) 

(QUOTE (COS X) ) 
(COSNX (SUB1 Nil ) 
(LIST (QUOTE TIMES) 
-1 

(QUOTE (SIN X) ) 
(SINNX (SUB1 Nil )))))))) 



DEFINE 

(((POSEVEN (LAMBDA (A) (AND (EVEN A) (GREATERP A -11)1) 
(TRIGFREE (LAMBDA (A) 
(COND 
((ATOM A) (NOr (MEMBER A (QUUTE (SIN* COS* SEC* TAN*))))) 
(T (AND (TRIGFREE (CAR A)) (TRIGFREE (CDR A)))l ))) 
(UNTR (LAMBDA (EXP) 
(COND 
( (ATOM EXP ) EXP ) 
( ( EQ (CAR EXP) (QUOTE LOG) I 
(COND ( (NULL (CDDR EXP) ) 

(LIST (CAR EXP) (QUOTE E) IUNTR (CADR EXPDI I 
(T (LIST (CAR EXP) (CADR EXP) (UNTR (CADOR EXP)))) )) 
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((EQ (CAR EXP) (QUOTE MINUS!) (LIST (QUOTE TIMES) -1 (UNTR (CADR EXP)))) 
((EQ (CAR EXP) (QUOTE SORT)) 

(LIST (QUOTE EXPT) (UNTR (CADR EXP)) 0.5EO) ) 
((EQ (CAR EXP) (QUOTE INTEGRAL)) (LIST (CAR EXP) (CAOR EXP) VAR)) 
((EQ (CAR EXP) (QUOTE DIFFERENCE)) 
(LIST (QUOTE PLUS) 

(UNTR (CAOR EXP)) 

(LIST (QUOTE TIMES) -1 (UNTR (CADDR EXP))) )) 
((EQ (CAR EXP) (QUOTE QUOTIENT)) 
(LIST (QUOTE TIMES) 

(UNTR (CAOR EXP)) 

(LIST (QUOTE EXPT) (UNTR (CADDR EXP)) -1) I) 
(T (MAPLIST EXP (FUNCTION (LAMBDA (A) (UNTR (CAR Ail)))) ))))) 

DEFINE 
(((TRANSL 
(LAMBDA 
(EXP) 
(COND 
((NUMBERP EXP) 
(PROG (TEMP) 

(RETURN (COND 

MFIXP EXP) EXP) 

((SETQ TEMP (INTEGERP EXP)) TEMP) 

((SETQ TEMP (OENOMFINO EXPl) 

(LIST (QUOTE QUOTIENT) (INTEGERP (TIMES TEMP EXP)) TEMP) ) 
(T (ERROR (QUOTE TRANSL))} )))) 
((ATOM EXP) EXP) 

((AND (MEMBER (CAR EXP) (QUOTE (PLUS TIMES,))) 
(GREATERP (LENGTH (CDR EXPO 2) ) 
(LIST 
(CAR EXP) 

(TRANSL (CADR EXP)) 

(TRANSL (CONS (CAR EXP) (CDDR EXP))) I) 
((AND (EQ (CAR EXP) (QUOTE LOG)) (CDDR EXP)) 
(COND ((EQ (CADR EXP) (QUOTE El) (CONS (CAR EXP) (CDDR EXP))) 
(T (LIST 

(QUOTE QUOTIENT) 

(LIST (QUOTE LOG) (TRANSL (CADDR EXP))) 
(LIST (QUOTE LOG) (CADR EXP)) )))) 
(T (MAPLIST EXP (FUNCTION (LAMBDA (A) (TRANSL (CAR A)))))) )>] 
(RATI (LAMBDA (EXP) 
(PROG (Bl NOTSANE) 

(COND ((AND (NUMBERP EXP) (ZEROP EXP)) (RETURN NIL))) 
(SETQ Bl (SUBST B (QUOTE B) (QUOTE (EXPT B (N EVEN))))) 

(RETURN (PROG2 (SETS VY (RAT EXP)) (COND ((NOT NOTSAME) YY) (T NIL))) )))) 
(RAT 
(LAMBDA 
(EXP) 
(PROG (Y) 

(RETURN 
(COND 
KEQ EXP A) (QUOTE X)) 
((ATOM EXP) 
(CONO ((MEMBER EXP (QUOTE (SIN* COS* SEC* TAN*))) 
(SETQ NOTSAME T) ) 
IT EXPI )) 
((SETQ Y <M2 EXP Bl NIL)) (F3 Y)l 
(T (CONS (CAR EXP) 

(MAPLIST (CDR EXP) (FUNCTION (LAMBDA (G) (RAT (CAR G)>>)> ))))))) 
(F3 (LAMBDA (Y) 
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(SUBST 
C 

(OUOTE C) 
(SUBST 
(QUOTIENT (CDR (SASSOC (OUOTE Nl Y NIL)) 2) 
(QUOTE N) 

(QUOTE (EXPT (PLUS 1 (TIMES C- IEXPT X 2))) Nil ID) 
(OOOl 
(LAMBOA 
IN) 

(COND KNOT (ZEROP (REMAINDER N 2))) 
(SETQ YZ 
(SUBST 
C 

(QUOTE C) 
(LIST 
(QUOTE EXPT) 

(QUOTE (PLUS 1 (TIMES C (EXPT X 2)))) 
(QUOTIENT (SUB1 N) 2) )))) 
(T NIL) ))) 
(EVEN (LAMBOA (A) (AND (NUMBERP A) (INTEGERP (QUOTIENT A 2))))) 
(SUBVAR (LAMBDA (B) (SUBST VAR (QUOTE X) B))> 
(TRIGINT 
(LAMBDA 
(EXP VAR) 

(PROG (Y REPL Yl Y2 YY Z M N C YZ A B) 
(SETQ Y2 
(SUBLIS (SUBVAR (QUOTE (((SIN X) . SIN*) 
((COS X) . COS*) 
( (TAN X) . TAN*) 
((COT X) EXPT TAN* -1) 
((SEC X) . SEC*) 
((CSC X) EXPT SEC* -1) ))) 
EXP )) 
(SETQ Yl 
(SETQ Y 
(SIMP (SUBLIS (QUOTE ((TAN* TIMES SIN* (EXPT COS* -II) (SEC* EXPT COS* -l))l 
Y2 )))) 
(COND ((NULL (SETQ Z 
(M2 
Y 
(QUOTE (TIMES 

(COEFFTT (B TRIGFREE)) 
(EXPT SIN* (M POSEVEN)) 
(EXPT COS* (N POSEVEN)) )) 
NIL ))) 
(GO LI) )) 
(SETQ M (CDR (SASSOC (QUOTE M) Z)>) 
(SETQ N (CDR (SASSOC (QUOTE N) Z) ) ) 
(SETQ A 
(INTEGERP (TIMES 
0.5E0 
(COND (ILESSP M N) 1) (T -II) 
(PLUS N (TIMES -1 Mil ))) 
(SETQ Z (CONS (CONS (OUOTE A) A) Zll 
(RETURN 
(SIMP 
(LIST 
(QUOTE TIMES) 

(CDR (SASSOC (QUOTE B) Z) ) 
0.5E0 
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Ll 



( SUBST 
(LIST 

(CUOT 

I INTE 

( SIM 

(CO 

( ( 
( 



( T 



(QUO 



(QUO 
E X) 
GRATE 
P 

NO 

LESSP 

SUBLI 

(QUOT 

(EX 

(EX 

(SUB 

(QUOT 

(EX 

(EX 

It XI 



TE TIMES) 2 VAR) 



M N) 
S I 
E ( TI 
PT IT 
PT (P 
LI S I 
E (TI 
PT (T 
PT (P 

) ) > ) 



MES 

IKES 0.5E0 (SIM X) ) M) 

LUS 0.5E0 (TIMES 0.5E0 (COS X))l A) )))) 

MES 

I MES 0.5EO (SIN X) ) N> 

LUS O.5E0 (TIMES -0.5E0 (COS XII) A) )))))) 

) 



GET3 



( SETU C -1 I 
( SETQ A (QUOTE SIN*) ) 
(SETQ B (QUOTE COS») ) 
(COND ((AND 

CM Y (QUUTE (COEFFPT (C RATI) IEXPT COS* (N OOD1)))) NIL) 
(SETC RcPL (LIST (GUOTE SIN) VAR)) ) 
(GO GETOUT) ) ) 
( SETQ A B) 

(SETQ B (QUUTE SIN*) ) 
(COND ((AND 

(K2 Y (QUOTE (COEFFPT (C RATI) (EXPT SIN* (N CDD1)))) NIL) 
(SETO REPL (LIST (QUOTE COS) VAR)) ) 
(GO GET3) ) ) 
(SETQ Y 
(SIMP (SUBLIS (QUOTE ((SIN* TIMES TAN* (EXPT SEC* -1)) (COS* EXPT SEC* -1))) 
Y2 ) ) I 
( SETQ C 1 ) 

1 SETQ A (GUOTE TAN*) ) 
(SETQ B (QUOTE SEC*) ) 

(COND ((AND (RATI Y) (SETQ REPL (LIST (QUOTE TAN) VAR))) (GO GETD) ) 
( SETQ A 6) 

( SETC B (QUOTE TAN*) ) 
(COND ((AND 

(M2 Y (QUOTE (COEFFPT (C RATI) (EXPT TAN* (N ODD1 ) 1 ) ) NILI 
(SETQ REPL (LIST (QUOTE SEC) VAR)) ) 
(GO GETOUT) ) I 
(SETQ Y 
(SIMP (SUBLIS (QUOTE ((SIN* TIMES 2 X (EXPT (PLUS 1 (EXPT X 2)) -11) 
(COS* 
TIMES 

(PLUS 1 (TIMES -1 (EXPT X 2) ) ) 
(EXPT (PLUS 1 (EXPT X 2)1 -1 ) ) ) ) 
Yl ) ) ) 
(SETQ Y 
(LIST 
(QUOTE TIMES) 
Y 

(QUOTE (TIMES 2 (EXPT (PLUS 1 (EXPT X 21) -1))) I) 
(SETQ REPL (SUBVAR (QUOTE (QUOTIENT (SIN X) (PLUS 1 (COS X)))))) 
(GO GET2) 

(SETQ Y (LIST (QUOTE TIMES) -1 YY YZII 
(GO GET2) 



GET! 
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(SETQ Y 
(LIST (QUOTE TIMES) (QUOTE (EXPT (PLUS 1 (EXPT X 2)) -1)) YY ) ) 

(GO GET2) 
GETOUT 

(SETQ Y (LIST (QUOTE TIMES) YY YZ)> 
GET2 

( SETQ Y ( SIMP Y) ) 

(RETURN (SIMP (SUBST REPL (QUOTE X) (INTEGRATE Y (QUOTE X))))) ))))) 

DEFINE 
( ( (ALGORT 
(LAMBDA 
(Rl PI VAR1) 

(PRUG (R OLDS1 OLDREST P VAR PD Q S SI S2 ANS Al A2 A3 NUM A M B REST) 
(CSETQ VARLIST (LIST VARD) 
(NEWVAR Rl) 
(NEWVAR PI) 
( SETQ R (REP Rl ) ) 
( SETQ P (REP PI) ) 
( SETQ VAR (REP VARD ) 
(SETQ PD (PFDERI VATIVE P)) 
(SETQ Q (DENOMINATORF R)) 
( SETQ SI (NUMERATORF R) ) 



LOOP 



(COND ((NOT (POLP Sl>) (GO A))) 

( SETQ B (LIST (CAR SI) ) ) 

( SETQ S ( SIMPOL ICDR SI ) ) ) 

( SETQ M ( SUB1 (LENGTH SI ) ) I 

(SETQ ANS (PLUSF A ANS) ) 
(SETQ OLDS1 SI) 
( SETQ OLDREST REST) 

(SETQ A (QUOTIENTF (TIMESF B (POLEXPT VAR M)) (TIMESF PD Q))) 
(SETQ A3 (TIMESF A ( PFDERI VATI VE C))) 
(SETQ A2 
(QUOTIENTF (MINUSF (TIMESF B ( POLDER I VAT I VE (POLEXPT VAR M)))) 
PD ) ) 
(SETQ Al 
(QUOTIENTF (TIMESF (TIMESF B (POLEXPT VAR Ml) ( PFDER I V AT I VE PD)I 
(PULEXPT PD 2) ) ) 
(SETQ S2 (SEP (PLUSF (PLUSF S REST) (PLUSF Al (PLUSF A2 A3))))) 
(SETQ SI (CAR S2)> 
(SETQ REST (CDR S2 ) ) 
(COND (SI (GO LOOP) ) ) 

(SETQ REST (SIMPSIMP (TRANS REST))) 
(COND ((AND (NUMBERP REST) ( ZEROP REST)) 
(RETURN (SIMPSIMP (LIST 
(QUOTE TIMES) 
(TRANS (PLUSF A ANS) ) 

(LIST (QUOTE EXPT) (QUOTE E) PI) I)))) 
(RETURN 
(PLUSSIMP 
(LIST 
(QUOTE PLUS) 
(SIMPSIMP (LIST 
(QUOTE TIMES) 
( TRANS ANS) 

(LIST (QUOTE EXPT) (QUOTE E) PI) )) 
(LIST 
(QUOTE INTEGRAL) 
(LIST 



241 



(RETURN (SIMP (LIST (QUOTE DIFFERENCE) (LIST (QUOTE TIMES) Y D) Zl) ) 
B 

(COND 
((NOT 
(SETQ 
W 

(M2 
D 

(QUOTE 
(PLUS 
(COEFFPT 
(C TRUED 
(EXPT 
(CC (LAMBDA (CO 
(Ml CC 
(QUOTE (PLUS (COEFFPT (B FREE) (EXPT (X VARP) 2)1 
(COEFFP (A FREE)) ))))) 
(N INTEGERP1) ))))))) 
( GO C ) ) ) 
(SETQ CC (CDR (SASSOC (QUOTE CC) W) ) ) 

(SETQ Z (TRIGSQRT (LIST (QUOTE TIMES) Y D) VAR CC W)l 
(COND ((NULL Z) (RETURN NIL))) 
(GO A) ))))) 

DEFINE 

( ( (FIND1 (LAMBDA (Y A) 
(COND 
((EQ Y A) T) 
((ATOM Y) NIL) 

(T (OR (FIND1 (CAR Y) A) (FIND1 (CDR Y) A))) ))) 
(MAXPARTS 
(LAMBDA 
tA) 
(PROG (Y) 

(SETQ Y 1) 
LOOP 

(SETQ Y 
(MAX Y 
(COND ((EQ (CAR Y) (QUOTE EXPT)) 
(COND ((NUMBERP (CADDAR Y) > 

(COND ((LESSP (CADDAR Y) 0) (MINUS (CADDAR Y))» 
(T (CADDAR Y)> )) 
(T 1) )) 
(T 11 >)) 
(SETQ A (CDR A)) 
(COND ((NULL A) (RETURN Y) ) ) 
(GO LOOP) ))) 



INTEGRATION-BY-PARTS 



(PARTS 
(LAMBDA 
(EXP VAR) 
(PROG (A B Y Z M G TOPPART) 

(COND (NOPARTS (RETURN NIDI) 

(COND KNOT (GET (QUOTE TOP) (QUOTE APVALIH 

(CSETQ TOP (SETQ TOPPART (GENSYM))) )) 
(SETQ Y 
(M2 
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(RETURN NILin 



EXP 

(QUOTE (TIMES (COEFFTT (A FREE)) (COEFFTT (B TRUE)))) 
NIL )) 
ISETQ A (CDR (SASSOC (QUOTE A) YD) 
(SETQ B (CDR (SASSOC (QUOTE B) YD) 
(CONO ((NOT (EQ (CAR B) (QUOTE TIMES))) 
(COND 
{(NOT (GET (QUOTE MAXPARTS) (QUOTE APVALD) 
(AND (CSETQ MAXPARTS (TIMES 2 (MAXPARTS BD) 
(CSETG NUMPARTS 1) )) 
((AND (CSETQ NUMPARTS (ADD1 NUMPARTS)) 
(GREATERP NUMPARTS MAXPARTS) ) 
(RETURN NIL) I ) 



LOOP 



(SETQ Y (CDR BD 

(CSETQ NOPARTS T) 

(SETQ Z (INTEGRATE (CAR Y) VARD 

(CSETQ NOPARTS NIL) 

(COND ((FINDl Z (QUOTE INTEGRAL)) (GO AD) 

(SETQ G (CHOICE (CAR Y) BD 

(SETQ W (INTEGRATE (SIMPTIMES (LIST (DIFF1 G VAR) ZD VARD 

(COND ((FINDl M (QUOTE INTEGRAL!) (GO AD) 

(SETQ 

Y 

(SIMPTIMES (LIST A (SIMPDIFFERENCE (LIST (SIMPTIMES (LIST G ZD WDI )) 
(RETURN (COND ((EQ TOPPART TOP) 
(PROG23 

(QUOTE TOP) (QUOTE APVALD 



(REMPROP 
Y 

(REMPROP 
T Y) D 



(QUOTE MAXPARTS) (QUOTE APVALD D 



(SETQ Y (CDR 
(COND ((NULL 
(COND ((NOT (EQ 
(CSETQ MAXPARTS 
(CSETQ NUMPARTS 
(GO LOOP) ))))) 



YD 

Y) (RETURN NIL) )) 

TOP TOPPARTD (GO LOOP))) 
(TIMES 2 (MAXPARTS BD) 
1) 



CSET 
(NUMPARTS 1) 

CSET 
(NOPARTS NIL) 



SOLDIER 



DEFINE 
( ( ( SOL 

(LAMBDA 
(EXP INDVAR DEPVAR) 
(SUBST 
INDVAR 
(QUOTE X) 
(SUBST 
DEPVAR 
(QUOTE Y) 
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(SOLDIER 
(SUBST 
(QUOTE X) 
INDVAR 
(SUBST 
(QUOTE Yl 
DEPVAR 
(SUBST 
(QUOTE DX) 

(INTERN (MKNAM (u.. .CLEARBUFFI (PACK (QUOTE D») (PACK INDVAR))) ) 
(SUBST 
(QUOTE OY) 

(INTERN (MKNAM (OR (CLEARBUFF) (PACK (QUOTE D)) (PACK DEPVAR))) I 
(SUBST 
(QUOTE YPR) 
(INTERN [MKNAM (OR 
(CLEARBUFF) 
(PACK DEPVAR) 
(PACK (QUOTE P)l 
(PACK (QUOTE R)) ))) 
EXP )))))))))) 
(SOLCON 
(LAMBDA 
(EXP INDVAR DEPVAR X Y) 
((LAMBDA (Z) 
((LAMBDA (W) 

(COND ( (NULL W) NIL) 
(T (LIST 

(QUOTE EQUAL) 

(SIMP (SUBST Y DEPVAR (SUBST X INDVAR W))> 
W ) ) ) ) 
(COND 
((NULL Z) NIL) 

KEQ (CADR Z) (QUOTE CO)) (CADDR Z) ) 
(T (CADR Z) ) 1 ) ) 
(SOL EXP INDVAR DEPVAR) ))) 
(SOLDIER 
(LAMBDA 
(EXP) 

(PROG (W EXP1 EXP2) 
(COND 
(ISETQ W 
(M2 

(QUOTE (PLUS (COEFFPT (A TRUE) DY) (CCEFFPT (B TRUE) DX ) ) ) 
NIL ) ) 
(GO A) ) 
( (SETQ W 
(M2 
EXP 

(QUOTE (PLUS (COEFFPT (A TRUE) YPR) (CCEFFPT (B TRUE)))) 
NIL )) 
NIL ) 
(T (RETURN NIL)) ) 
(SETQ EXP1 (REPLACE H (QUOTE (PLUS (TIMES A DY ) (TIMES B DX ) ) ) ) ) 
(SETC EXP2 EXP) 
(GO B) 
A 

(SETQ EXP2 (REPLACE W (QUOTE (PLUS (TIMES A YPR) B)))) 
(SETQ EXP1 EXP) 
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( TRYSOLD 

(COND 

( (NUL 

( ( SET 

(TIT 



(COND ((TRYSULD (QUUTE (LINEAK 
SEP 
EXACT 
HOMGGTYPE 
BERNOULLI 
LINEARCOEFF 
ALMOSTLINEAR 
REVERSEVAR 
XNYl )) 
(QUOTE (EXP1 EXP1 EXP1 EXP1 EXP2 EXP2 EXP1 EXP1 EXP2)) ) 
(RETURN H) ) 
( T (RETURN NIL) I ) ) ) ) 
(LAMBDA (A B) 

L A ) NIL) 

Q M ((CAR A) (COND ((EO (CAR B) (QUOTE EXPD) EXP1) (T EXP2)))) W) 

RYSOLD (CDR A) (COR B) ) ) ) ) ) ) ) 



DEFINE 

( ( ( FAC 

(L4 

( E 

(C 

( 

( 



TORX 

MB DA 

XP ) 

OND 

(NOT 

T 

( SIM 

I MA 

(C 

(F 



(EQ (CAR EXP) (QUOTE TIMES))) EXP) 



(FAC 

(LA 

(E 

(P 



TCRX 
MBDA 
XP ) 

ROG 



PTIME 

PLIST 

DR EX 

UNCTI 

(CONO 

( (EG 

( (AN 

(E 

( SI 

( T ( 

Y2 



P) 

UN (LAMBDA 



(EXPI 



(CAAR EXP) (QUOTE PLUS)) (FACT0RXY2 (CAR EXP))) 
D (EC (CAAR EXP) (QUOTE EXPTI) 
Q (CAADAR EXP) (QUOTE PLUS)) ) 

MPEXPT (LIST (FACTORXY2 (CADAR EXP)) (CADDAR EXP))) ) 
CAR EXD ) ))))))))) 



(Z IUD RES W) 

I SETQ Z (CDR EXP) ) 

(SETG IND (QUOTE X)) 



LUGP 



(COND 

( (NO 

( S 

W 

I 



(GO 

( SETQ 

(CON 

(COND 

(RE 



TQ 

M2 

(CAR 

(QUO 

(CU 

(B 

(E 

< 

( 

NIL 
NO ) 
RES 

S (R 
( (N 

TURN 



Z) 
TE 
EFF 

TR 
XPT 
A M 
N ( 
( 
) ) ) 

) ) 



T 

Utl 

1 IND) 

FUNCTION (LAMBDA (N) 

AND (NUMBERP N) (GREATtRP 



N 0.98999999E0) ) )))))) 



EPLACE W (QUOTE (TIMES B (EXPT A (PLUS N -1))))) RES) ) 
OT (SETQ Z (CDR Z))) 
(SIMPTIMES (LIST IND (SIMPPLUS RES)))) )) 
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(GO LOOP) 

(COND {(EQ I.MD (QUOTE 
(SETQ IND (QUOTE YD 
( SETQ Z (COR EXP) ) 
( SETQ RES NIL) 
(GO LOOP) ) ) ) ) ) 



Y) ) RETURN EXP) ) ) 



DEFIME 

( ( ( SIMPE 

(LAMB 

( EXP 

(PRO 



XPT 
DA 
) 
G ( 



A B) 
SETQ 
SETQ 
COND 
( ( EQP 
( (AND 
(EQ 
( SE 
( S£ 
NIL 
NIL 
( (EQP 
( (EQP 
( (EQP 
( (AND 
(RET 
( ( 
( ( 
( T 
( (EQ 

(RET 

( I AND 

(RET 

(CO 

(Q 

(M 

( 

( (NUT 

(RET 

(PR 



( SIMP 
( SIMP 



(CADR EXP) ) ) 
(CAR EXP) ) ) 



A 0) (RETURN 0) ) 



(C 

TQ 
TQ 
) 
) 

B 

B 

A 

(N 
URN 
NOT 
AND 

(L 
(CA 
URN 

EX 
URN 
NS 
UOT 
APL 
FUN 

(A 
URN 
OG 



AR A) (QUOTE 
8 (SIMPTIMES 
A (CADR A) ) 



EXPT) ) 

(LI ST B (CADDR A) ) ) ) 



0) (RETURN 1) ) 

1) (RETURN A) ) 
1) (RETURN IT) 
UMBERP A) (NUMBERP B) ) 

(COND 

EXPTIND) (EXPT A B) ) 

(FIXP B) (GREATERP B -1)) (EXPT A B)) 
I ST (QUOTE EXPT) A B) ) ) ) ) 
R A) (QUOTE TIMES) ) 

(CONS (QUOTE TIMES) (EXPTLOOP ( CDR A)))) ) 
PTSUM (EQ (CAR B) (QUOTE PLUS))) 



E TIMES) 
1ST (CDR B) 
CTION (LAMBDA 
TOM B ) I 



(C) (SIMPEXPT (LIST A (CAR C))))) )))) 



( W) 
(RET 
(CO 
( ( 



URN 
ND 

NOT (SETO W 
(M2 
B 
(Q 



( 
( ( 

( 
( T 

< 



UGTE (PLUS (CCEFFT 

(LOG (Bl TRUE) (A 

(COEFFP (E TRUE) ) 

NIL ) ) ) 

LIST (QUOTE EXPT) A B) 

NOT (EQUAL A (SUBLIS W 

LIST (QUOTE EXPT) A B) 



(C TRUED 
TRUE)) ) 
) ) 

) 

(QUOTE 6D ) ) ) 

) 



SIMPTIMES (LIST 
(SIMPEXPT (LIST (SUBLIS W (QUOTE A)) 

(SUBLIS W (QUOTE CD D 
(SIMPEXPT (LIST A (SUBLIS W (QUOTE EDD 
(RETURN (LIST (QUOTE EXPT) A Bl) ID 



))))))))) 



( EXPTLOOP 
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(LAMBDA 

(A) 

[PR0G23 
(CSETU SIMPIND T) 
(MAPLIST A (FUNCTION (LAMBDA 
(CSETQ SIMPIND NIL) ) ) ) ) ) 



(C) (SIMPEXPT (LIST (CAR C) B))))) 



(QUOTE Y) ) DY) 



DEFINE 
( ( (L INEAR 
( LAMBDA 
( EXP ) 

(PROG (Y I W) 
(RETURN 
(COND 
( (NOT 
( SETQ 
W 

(M2 
EXP 

(QUOTE 
(PLUS 
(COEFFPT (F FREEX 
(COEFFPT (A Ml 

(QUOTE (PLUS (COEFFPT (G FREEX (QUOTE Y)) Y) 
(COEFFPT (H FREEX (QUOTE Y)>> ))) 
DX ) ) ) 
NIL ) ) ) 
(COND ((AND (THEREXNY EXP 1) 

(NOT (M2 EXP (SETQ W (EXPAND2 EXP)) NIL)) ) 
(LINEAR U) > 
(T NIL) ) ) 
( T 
(LIST 
(QUOTE EQUAL) 
(QUOTE CO) 
( SIMPPLUS 
(LIST 
(LIST 
(QUOTE TIMES) 
(QUOTE Y) 
(SETQ 
Z 

( SIMPEXPT 
(LIST 
(QUOTE E) 

(SIN ( SIMPQUOTIENT (LIST (REPLACE W (QUOTE G) 
(REPLACE M (QUOTE F) ) ) ) 
(QUOTE X) ))))) 
(SIN 
(SIMPTIMES (LIST Z 

(SIMPQUOTIENT (LIST (REPLACE U (QUOTE H)) 
(REPLACE rt (QUOTE F) ) ) ) ) ) 
(QUOTE X) )))))))))) 
(THEREXNY (LAMBDA (EXP N) (EQUAL N (COUNTY EXP)))) 
(COUNTY (LAMBDA (EXP) 

(COND ((ATOM EXP) (COND ((EQ EXP (QUOTE Y)) 1) (T 0))) 
(T (PLUS (COUNTY (CAR EXP)) (COUNTY (CDR EXP)))) ))))) 



DEFINE 
I ( (SEP 

(LAMBDA 
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(EXP ) 

(PkOG 



( kv) 

(RETUR 

(COND 

( ( SE 

(M 

( 

( 



N 

(LI 

IQ 

( S 



(I 



(FREEX ( 
(COND 
( T (A 



I T N 
LAMBDA 
( (ATOM 
ND (FR 



N 

TQ W 
2 

PRUG23 
QUOTE ( 
(TIMES 
OX 

(COEF 
(CQEF 
( TIMES 
DY 

(COEF 
(CQEF 
IL ) ) 
ST 

UOTE EQ 
IMPPLUS 
(SIN (S 
(SIN ( S 
UOTE CO 
IL) ) ) ) 
(A VAR 
A) (NO 
EEX (CA 



(CSETG EXPTSUM 
PLUS 



T) (SIMP EXP) (CSETO EXPTSUM NIL)) 



FTT 
FTT 



FTT 
FTT 



(M FREEX 
(R FREEX 



(N FREEX 
(S FREEX 



(QUOTE X) ) ) 
(QUOTE Y) ) ) > 



(QUOTE X) ) ) 
(QUOTE Y) I I ) ) ) 



UAL) 

(LIST 
UBLIS W 
UBLIS W 
) ) ) 
) ) 
) 
T (EQ A 



(QUOTE 
(QUOTE 



VAR) ) ) 



(QUOTIENT 
(QUOTIENT 



S) ) ) 
M) ) ) 



( QUOTE 
(QUOTE 



X) ) 
Y) ) 



) ) 



R A) VAR) (FREEX (CDR A) VAR))) ))))) 



DEFINE 
( ( ( EXACT 
( LAMB 
( EXP 

(PRO 



DA 
) 



OUT 



( W P Q DPDY 
(COND ((NOT 
(M2 
EXP 

(QUOTE 

NIL ) ) ) 

(RETURN NIL) 



DQDX Y Fl ) 
(SETQ \n 



[PLUS (COEFFPT (P TRUE) DX) (COEFFPT (Q TRUE) DY ) ) ) 



) ) 



(SETQ 
( SETQ 
( SETQ 
( SETQ 
(COND 

( SETQ 

(RETUR 

(LIST 

(QUO 

(QUO 

( SIM 

(LI 

Y 

( S 
( 
( 



P (SUBLIS W 
Q ( SUBLI S W 
DPDY (DIFF1 
DQDX (DIFF1 



(QUOTE P>>) 
(QUOTE Q) ) ) 
P (QUOTE Y))) 
Q (QUOTE X))) 



((NOT (M2 DPDY DQDX NIL)) (GO A))) 



(SIN P (QUOTE X) ) ) 



TE EQUAL) 
TE CO) 
PPLUS 
ST 

IN 

EXPAND2 ISIMPDIFFERENCE 

QUOTE Y) ) ) ) ) ) 



(LIST Q (DIFF1 Y (QUOTE Y))))) 



(COND 
( (NOT 
(FREEX 
(SETQ Fl 



248 



(SIMPQUOTIENT (LIST (SIMPDIFFERENCE (LIST DPDY DQDX I) Q)) ) 
(QUOTE Y) )> 
( GO B ) ) ) 
(SETQ Y (SIMPEXPT (LIST (QUOTE E) (SIN Fl (QUOTE X 1 1 ) 1 ) 
(SETQ P (SIMPTIMES (LIST Y P»H 
(SETQ Q (SIMPTIMES (LIST Y Q))J 
(GO OUT) 
B 

(COND 
((NOT 
(FREEX 
(SETC1 Fl 

(SIMPQUOTIENT (LIST (SIMPDIFFERENCE (LIST DCJDX DPOY)) P)) ) 
(QUOTE X> )) 
( GO C ) J ) 
(SETQ Y (SIMPEXPT (LIST (QUOTE E) (SIN Fl (QUOTE YJ))>) 
(SETQ P (SIMPTIMES (LIST Y P) > ) 
(SETQ Q (SIMPTIMES (LIST Y Q))) 
(GO OUT) 
C 

(COND ((NOT (AND (M2 DPDY (SIMPMINUS (LIST DQDXJ) NIL) 
(M2 (DIFF1 P (QUOTE X») (DIFF1 Q (QUOTE Y>) NIL) )) 
(RETURN NIL) )) 
(SETQ Y 

(SIHPPLUS (LIST (SIMPTIMES (LIST P P) I (SIMPTIMES (LIST Q Q)))) ) 
(SETQ P (SIMPQUOTIENT (LIST P Y)l) 
(SETQ Q (SIMPQUOTIENT (LIST Q Y) ) ) 
(GO OUT) ))) )) 

DEFINE 

(( (BERNOULLI 
(LAMBDA 
(EXP) 
(PROG (W) 

(RETURN 
(COND 
((NOT 
(SETQ 
W 

(M2 
EXP 
(QUOTE 
(PLUS 
(COEFFPT (B TRUE) YPR) 
(COEFFPT (P FREEX (QUOTE Y) I Y) 
(COEFFPT 
(Q FREEX (QUOTE Y)) 
(EXPT Y 
(N (LAMBDA (A) 

(AND (NUMBERP A) (NOT (ZEROP A))) )))))) 
NIL ))) 
(COND ((AND (THEREXNY EXP 2) 

(NOT (M2 EXP (SETQ W (EXPAN02 EXP)) NIL)) ) 
(BERNOULLI W) ) 
(T NIL) )) 
((FREEX (REPLACE M (QUOTE 6)) (QUOTE YD 
KLAM6DA 
(P Q Nil 
(SUBST 
(SIMPEXPT (LIST (QUOTE Y) Nl ) ) 
(QUOTE Y) 
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(LINEAR (SIMPPLUS (LIST (QUOTE DY) 
(LIST 
(QUOTE TIMES) 
(QUOTE DX) 
(LIST 
(QUOTE PLUS) 

(LIST (QUOTE TIMES) Nl P (QUOTE Yll 
(LIST (QUOTE TIMES) Nl C) ))))))) 
(REPLACE M (QUOTE (QUOTIENT P BID 
(REPLACE U (QUOTE (QUOTIENT Bill 
(SIMPOIFFERENCE (LIST 1 (SUBLIS H (QUOTE N)))) ))))))))) 

DEFINE 
(((HOMOGTVPE 
(LAMBOA 
(EXP) 

(PROG tVZNI 
(COND 
((NOT (SETQ H 
(M2 
EXP 

(QUOTE (PLUS (COEFFPT (P TRUE) OX) (COEFFPT (Q TRUE) DY ) ) ) 
NIL ))) 
(RETURN NIL) ) 
((NOT (AND 

(SETQ Z (HOMOG (SUBLIS W (QUOTE P>))> 
(SETQ Y (HOMOG (SUBLIS H (QUOTE Q) ) ) ) 
(EQP Y Z) )) 
(RETURN NIL) ) 
(T 
(RETURN 
(LIST 
(QUOTE EQUAL) 
(LIST 
(QUOTE PLUS) 
(QUOTE (LOG E X)) 
(SIMP 
(SUB ST 
(QUOTE (QUOTIENT Y X) » 
(QUOTE Y) 
(SIN 
(SIMPQUOTIENT 
(LIST 
(SETQ Y 

(SIMP (SUBST 1 (QUOTE X) (SUBLIS N (QUOTE Q)>> )) 
(SIMPPLUS (LIST 

(SIMP (SUBST 1 (QUOTE X) (SUBLIS W (QUOTE P))> 1 
(SIMPTIMES (LIST (QUOTE Y) Y)) )>)) 
(QUOTE Yl )))> 
(QUOTE CO) ))))))) 
(HOMOG (LAMBDA (EXP) 
(PROG (NOTHOM Y) 

(SETQ Y (HOMOGEN EXP) I 

(COND (NOTHOM (RETURN NIL)) (T (RETURN Y))> ))) 
(HOMOGEN 
(LAMBDA 
(EXP) 
(COND 
((ATOM EXP) (COND ( (EQ EXP (QUOTE Y) ) 1) ((EO EXP (QUOTE XI) 1) (T 0))) 
((EQ (CAR EXP) (QUOTE TIMES)) 
(EVAL (CONS (QUOTE PLUS) 
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(MAPLIST (COR EXP) (FUNCTION (LAMBDA (C) (HOMOGEN (CAR C))))) ) 
(ALIST) )) 
((EQ (CAR EXP) (QUOTE PLUS)) 
((LAMBDA (Y) 
(PROG (Z> 

(SETQ Z (HOMOGEN (CAR YD) 
LOOP 

(SETQ Y (CDR Y)) 
(COND 
( (NULL Y) (RETURN Z) ) 
((NOT (EQUAL Z (HOMOGEN (CAR YD)) 

(RETURN (PR0G2 (SETQ NOTHOM T) -1000)) ) 
(T (GO LOOP)) ))) 
(CDR EXP) )) 
((EQ (CAR EXP) (QUOTE EXPT) ) 
(COND 
((NUMBERP (CADDR EXP)) (TIMES (HOMOGEN (CAOR EXP)) ( CADDR EXP))) 
((AND (ZEROP (HOMOGEN (CADR EXP))) ( ZEROP (HOMOGEN (CADDR EXP)))) 0) 
(T (PR0G2 (SETQ NOTHOM T) -1000)) )) 
((EQ (CAR EXP) (QUOTE LOG)) 
(COND ((ZEROP (HOMOGEN (CADDR EXP))) 0) 
(T (PR0G2 (SETQ NOTHOM T) -1000)) )) 
((ZEROP (HOMOGEN (CADR EXP))) 0) 
(T (PR0G2 (SETQ NOTHOM T) -10001) ))))) 

DEFINE 

(((ALMOSTLINEAR 
(LAMBDA 
(EXP) 

(PROG (U D DDDY) 
(RETURN 
(COND 
((NULL 
(SETQ 
W 

(M2 
EXP 

(QUOTE 
(PLUS 
(TIMES DY (COEFFTT (A TRUE))) 
(TIMES 
DX 

(PLUS 
(TIMES 
(COEFFTT (C FREEX (QUOTE Y))) 
(COEFFTT 
(D (FUNCTION (LAMBDA (A) (NOT (FREEX A (QUOTE YD)) )))) 
(COEFFPP (E FREEX (QUOTE Y))) )))) 
NIL ))) 
NIL ) 
((EQUAL 
(SETQ DDDY 
(DIFF1 (SETQ D (REPLACE W (QUOTE D) ) ) (QUOTE YD )) 
NIL ) 
((NOT (EQUAL (DIFF1 DDDY (QUOTE X.)))\ NIL) 
(T 
(SUBST 
D 

(QUOTE Y) 
(LINEAR 
(REPLACE 
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(CONS (CONS (QUOTE B) 
(SIMPQUOTIENT (LIST 
H ) 
(QUOTE 
(PLUS 
(TIMES B DY) 
(TIMES DX 
(PLUS 
E 

(TIMES C Y) 
(TIMES -1 B 



(REPLACE W (QUOTE A)) CODY > ) I 



(EVAL (DIFF1 (QUOTE D) (QUOTE X)))) ))))))) I It >))) ) 



A) (ZEROP A)))) 
(QUOTE X)) (FREEX 



> 



W (QUOTE APR)))) 

W (QUOTE BPR)))) ) 
(LIST (SIMPTIMES (LIST A BPR)) 
B) I )))) 



DEFINE 

(((ZEROP1 (LAMBDA (A) (AND (NUMBERP 
(FREEXY (LAMBDA (A) (AND (FREEX A 
(LINEARCOEFF 
(LAMBDA 
(EXP) 

(PROG (IrJO W A B APR BPR) 
(RETURN 
(COND 
KNOT (ELEMLIN EXP)) NIL) 
((OR 
(AND 
(ZEROP1 (SETQ A (SUBLIS W (QUOTE A)))) 
(ZEROP1 (SETQ B (SUBLIS W (QUOTE B)))l 
(AND 
(ZEROP1 (SETQ APR (SUBLIS 
(ZEROP1 (SETQ BPR (SUBLIS 
(ZEROP1 (SIMPDIFFERENCE 
(SIMPTIMES (LIST APR 
(RETURN NIL) ) 
(T 
(REPLACE 
(REPLACE 
NIL 
(QUOTE 
IIX 
EVAL 
(QUOTE* 
(REPLACE 
M 

(QUOTE (PLUS X 
(MINUS (QUOTIENT 

(DIFFERENCE (TIMES BPR C) 

(TIMES B CPR) ) 
(DIFFERENCE (TIMES APR B) 
(TIMES A BPR) )))))))) 
(Y 
EVAL 
(QUOTE* 
(REPLACE 
W 

(QUOTE (PLUS Y 
(MINUS (QUOTIENT 

(DIFFERENCE (TIMES A CPR) 

(TIMES APR C) ) 
(DIFFERENCE (TIMES APR B) 
(TIMES A BPR) >)))>>>>)>) 
(HOMOGTYPE (SUBSTLIN EXP)) I)))))) 
(ELEMLIN 



A (QUOTE Y))))) 
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(LAMBDA 
(EXP) 
((LAMBDA (Y) 

(COND ((NULL Y) NIL) 
(T (ELEMLIN1 (REPLACE Y (QUOTE (QUOTIENT A B)M)) )) 
(M2 EXP (QUOTE tPLUS (COEFFPT (B TRUE) YPR) (COEFFPT (A TRUE)))) NIL) ))) 
(SUBSTLIN 
(LAMBDA 
(EXP) 
(LIST 
(QUOTE PLUS) 
(QUOTE DY) 
(SIMPTIMES 
(LIST 
(QUOTE DX) 

(SUBSTLIN1 (REPLACE (M2 
EXP 

(QUOTE (PLUS (COEFFPT (B TRUE) YPR) (COEFFPT (A TRUE)))) 
NIL ) 

(QUOTE (QUOTIENT A B) ) ))))))) 
(ELEMLIN1 
(LAMBDA 
(EXP) 
(COND 
UFREEXY EXP) T) 
((SETQ 
H 

(M2 
EXP 
(CONO 
(IND IND) 
(T 
(QUOTE (TIMES 

(COEFFTT (AA FREEXY)) 
(EXPT (PLUS 

(COEFFPT (A FREEXY) X) 
(COEFFPT (B FREEXY) Y) 
(C FREEXY) ) 
(N NUMBERP) ) 
(EXPT 
(PLUS 
(COEFFPT (APR FREEXY) X) 
(COEFFPT (BPR FREEXY) Y) 
(CPR FREEXY) ) 
(M (FUNCTION (LAMBDA (M N) (EQUAL M (MINUS N)))) N) ))))) 
NIL )) 
(COND (IND IND) (T (SETQ IND EXP))) ) 
((ATOM EXP) NIL) 

(T (AND (ELEMLIN1 (CAR EXP)) (ELEMLIN1 (CDR EXP)))) ))) 
(SUBSTLIN1 
(LAMBDA 
(EXP) 
(COND 
((FREEXY EXP) T) 
KM2 EXP IND) 
(SIMP (SUBLIS H 
(QUOTE (TIMES 
AA 

(EXPT (PLUS (TIMES A X) (TIMES BY)) N) 

(EXPT (PLUS (TIMES APR X) (TIMES BPR Y) ) (MINUS N) ) ))))) 
(T (MAPLIST EXP (FUNCTION (LAMBDA (C) (SUBSTLIN1 (CAR C)))))> ))))) 
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DEFINE 
(UXNY1 
(LAMBDA 
(EXP) 

(PROG (W C H FX S A B N) 
(COND KNOT (SETQ U 
(M2 
EXP 

(QUOTE (PLUS (COEFFPT (A TRUE! YPK) (COEFFPT (B TRUE)))) 
NIL ))) 
(RETURN NIL) )) 
(SETQ C (REPLACE W (QUOTE (QUOTIENT (MINUS B) A)))) 
(SETQ 
H 

(CONO 
KEQ (CAR C) (QUOTE PLUS)) 
(SIMPPLUS 
(MAPLIST 
(CDR C) 
(FUNCTION (LAMBDA (G) 

(SIMPTIMES (LIST (QUOTE XI (QUOTE (EXPT Y -1)) (CAR G)) )))))) 
(T (SIMPTIMES (LIST (QUOTE X) (QUOTE (EXPT Y -1 ) ) C))) )) 
(SETQ FX (QUOTE (TIMES (EXPT X N) Y)>) 
(SETQ H (FACTORXY HI) 
(SETQ 
S 

(EXPAND2 
(SIMPDIFFERENCE (LIST 

(SIMPTIMES (LIST (DIFF1 H (QUOTE X)) (OIFFi FX (QUOTE Y)))) 
(SIMPTIMES (LIST (OIFFI H (QUOTE Y)) (DIFFl FX (QUOTE X)))) )))) 
(COND ((NOT (SETQ W 
(M2 
S 

(QUOTE (PLUS (COEFFPT (A TRUE) N) (CCEFFP (B TRUE)))) 
NIL ))) 
(RETURN NIL) ) I 
(SETQ A (CDR (SASSOC (QUOTE A) W) ) ) 
(SETQ B (CDR (SASSOC (QUOTE B) W) ) ) 
(COND ((OR (ZEROP1 A) (ZEROP1 B) ) (RETURN NIL))) 
(SETQ N 
(COND 
((AND (EQ (CAR A) (QUOTE PLUS)) (EQ (CAR Bl (QUOTE PLUS))) 

(MATCHSUM (CDR (SIMPMINUS (LIST B) ) ) (COR A)) ) 
(T (SIMPQUOTIENT (LIST (SIMPMINUS (LIST B) ) A))) )) 
(COND ((NOT (NUMBERP N) ) (RETURN NIL))) 
(RETURN 
(LIST 
(QUOTE EQUAL) 
(QUOTE CO) 
(SIMPQUOTIENT 
(LIST 
(SIMPEXPT 
(LIST 
(QUOTE E) 
(REPLACE 
(LIST (CONS 
(QUOTE U) 

(SIMPTIMES (LIST (QUOTE Y) (SIMPEXPT (LIST (QUOTE X) N))) ))) 
(SIN 
(LIST 
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(QUOTE QUOTIENT) 
1 

(LI ST 
(QUOTE TIMtS) 
(QUOTE U) 
(LIST 
(QUOTE PLUS) 
N 

(REPLACE 
(LIST (CONS (QUOTE Y) 
(SIMP (LIST 

(QUOTE QUOTIENT) 
(QUOTE U) 

(LIST (QUOTE EXPT) 
HI))) 
(QUOTE U) I ) > ) 
(QUOTE X) ))))))))) 



(QUOTE X) N) ) ) ) ) 



ADDITIONAL METHODS 



DEFINE 

( ( (REVE 

(LAM 

(EX 

(PR 



RSEVAR 
BOA 
P ) 



OG ( Y) 

(RETURN (COND ( ( SE TQ Y 

(LINEAR (SUBLIS (QUOTE ((X . Y) (Y . X) (OX 
EXP ))) 
(SUBLIS (QUOTE ((X . Y) (Y - X))) Y) ) 
( T NIL) ))))))) 



DY ) ( DY 



DX) ) ) 



DEFINE 

( ( ( XAYB 

( LAMBDA 
( EXP ) 
(PROG 



( W 

M 

N 

XYDMDY 

XYDNDX 

XM 

YiM 

COEXM 

COEYN 

XAYB 

A 

B 

FORM 

XYDIFF 

Al 

A2 

Bl 

B2 

CI 

C2 

DET 

FACT ) 
(COND ( (NOT (SETQ h 
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(COEFFPT (M TRUE) DX) (CCEFFPT (N TRUE) DY ) ) ) 



(QUOTE 
(QUOTE 



M) ) ) 

N) ) ) 



<M2 
EXP 

(QUUTE (PLUS 
NIL ) ) ) 
(RETURN NIL) ) ) 
( SETQ M (REPLACE M 
(SETQ N (REPLACE U 
(SETQ XYDMDY 

(EXPAN02 (SIMPTIMES 
(SETQ XYONDX 

IEXPAND2 (SIMPTIMES (LIST (QUOTE X) (QUOTE Y) (DIFF1 N (QUOTE X)))) )) 
(SETQ XM (EXPAND2 (SIMPTIMES (LIST (QUOTE X) M)))) 
(SETQ YN (EXPAND2 (SIMPTIMES (LIST -1 (QUOTE Y) N)))) 
XYDIFF ISIMPDIFFERENCE (LIST XYDNDX XYDMDYO) 
W 



(LIST (QUOTE X) (QUOTE Y) (OIFF1 M (QUOTE Y)))) )) 



( (EQ (CAR YN) (QUOTE PLUS) ) 
(TIMES (COEFFTT (B FREEXYI) 



(REPLACE \n 
(REPLACE 



(QUOTE B) ) ) 
W (QUOTE C) ) ) 



Q (CAR YN) (QUOTE PLUS)) (CONS (QUOTE PLUS) (CDDR YN))) 



I SETQ 
( SETQ 
(M2 
(COND 
(QUOTE 
NIL ) ) 
(SETQ Bl 
(SETQ FACT 
(SETQ YN 
(COND (IE 
(TO) ) ) 
(SETQ FORM 
(LIST 
(QUOTE PLUS) 
(CONS (QUOTE COEFFPT) 
(CONS (QUOTE (B FREEXY) ) 
(COND ((EQ (CAR FACT) (QUOTE 
( T (LIST FACT) ) ) ) ) 
(QUOTE (COEFFPP (D TRUE))) )> 
(SETQ W (M2 XM FORM NIL) ) 
(SETQ Al (REPLACE U (QUOTE Bill 
XM (REPLACE W (QUOTE D) ) ) 
W (M2 XYDIFF FORM NIL) ) 
CI (REPLACE h (QUOTE B) ) ) 
XYDIFF (REPLACE W (QUOTE Dill 
( (M2 YN NIL) (GO B2ZERO) ) ) 
W 



(CADR YN) ) 
(COEFFTT 



(T YN ) ) 
(C TRUE) ) ) ) 



TIMES)) (CDR FACT)) 



(SETQ 
( SETQ 
( SETQ 
(SETQ 
(COND 
( SETQ 
(M2 
(COND 
(QUOTE 
NIL ) ) 
(SETg B2 (REPLACE M 
(SETQ FACT (REPLACE 
(SETQ FORM 
(LIST 
(QUOTE PLUS) 
(CONS (QUOTE COEFFPT) 
(CONS (QUUTE (B FREEXY) ) 
(COND ((EQ (CAR FACT) (QUOTE 
(T (LIST FACT) ) ) ) ) 
(QUOTE (COEFFPP (D TRUE) ) ) ) ) 
W (M2 XM FORM NIL)) 
A2 (REPLACE h (QUOTE B) ) ) 



((EQ (CAR YN) (QUOTE PLUS)) (CADR YN)) (T YN)) 
(TIMES (COEFFTT (B FREEXY)) (COEFFTT (C TRUE)))) 



(QUOTE Bill 
W (QUOTE C) ) ) 



TIMES) ) (CDR FACT) ) 



( SETQ 
( SETQ 
S26ACK 

( SETQ 
(SETQ 
( SETQ 
( SIMP 



W (M2 XYDIFF FORM NIL) ) 
C2 (REPLACE W (QUOTE Bll 
DET 
(LIST 
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(QUOTE DIFFERENCE! 
(LIST (QUOTE TIMES) B2 AD 
(LIST (QUOTE TIMES! 61 A2) ))) 
(COND ((M2 OET NIL) (RETURN NIL))) 
(SETQ B 
(SIMP (LIST 

(QUOTE QUOTIENT) 
(LIST 
(QUOTE DIFFERENCE) 
(LIST (QUOTE TIMES) B2 CD 
(LIST (QUOTE TIMES) Bl C2) ) 
DET ))) 
(SETQ A 
(SIMP (LIST 

(QUOTE QUOTIENT) 
(LIST 
(QUOTE DIFFERENCE) 
(LIST (QUOTE TIMES) Al C2) 
(LIST (QUOTE TIMES) A2 CD ) 
DET ))) 
(SETQ XAYB 
(SIMPTIMES (LIST (LIST (QUOTE EXPT) (QUOTE X) A) 
(LIST (QUOTE EXPT) (QUOTE Y) B) ))i 
(RETURN (EXACT (LIST 
(QUOTE PLUS) 
(LIST 
(QUOTE TIMES) 
(QUOTE DX) 

(EXPAND2 (SIMPTIMES (LIST M XAYB))) ) 
(LIST 
(QUOTE TIMES) 
(QUOTE DY) 

(EXPAND2 (SIMPTIMES (LIST N XAYB))) )))) 
B2ZERO 

(SETQ B2 0) 
(SETQ H 
(M2 
(COND IIEQ (CAR XM) (QUOTE PLUS)) (CADR XM)> (T XM I ) 
(QUOTE (TIMES (COEFFTT (B FREEXY) ) (COEFFTT (C TRUE)))) 
NIL )) 
(SETQ A2 (REPLACE U (QUOTE B) ) I 
(SETQ FACT (REPLACE W (QUOTE Cl > I 
(SETQ FORM 
(LIST 
(QUOTE PLUS) 
(CONS (QUOTE COEFFPT) 
(CONS (QUOTE (B FREEXY)) 
(COND ((EQ (CAR FACT) (QUOTE TIMES)) (CDR FACT)) 
(T (LIST FACT)) ))) 
(QUOTE (COEFFPP (0 TRUE))) )) 
(GO B2BACK) ))))) 



DEFINE 
(((KAMKE329 
(LAMBDA 
(EXP) 

(PROG (W DET AA BB) 
(COND 
((NOT 
(SETQ 
M 
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IM2 
(EXPAN02 EXPI 
(QUOTE 
(PLUS 
(COEFFPT (C Ml 

(QUOTE (PLUS (COEFFPT (ALPHA FREEXY) X) 
(COEFFPT 
(A FREEXY) 
(EXPT X (P FREEXY)) 
(EXPT Y (Q FREEXY)) )))) 
YPR ) 
(COEFFPT (BETA FREEXY) Y) 
(COEFFPT 
(B FREEXY) 
(EXPT X (R FREEXY)) 
(EXPT Y (S FREEXY)) ))) 
NIL ))) 
(RETURN NIL) ) 
( (NOT (AND 

(M2 1 (REPLACE W (QUOTE (DIFFERENCE PR))) NIL) 
(M2 1 (REPLACE W (QUOTE (DIFFERENCE S OH NIL) >) 
(RETURN NIL) ) 
(«M2 


(SETQ DET 
(REPLACE W 
(QUOTE (DIFFERENCE (TIMES A BETA) (TIMES B ALPHA))) )) 
NIL ) 
(RETURN NIL) )) 
(SETQ AA 
(REPLACE W 
(QUOTE (QUOTIENT (DIFFERENCE (TIMES Q BETA) (TIMES R ALPHA)) 
(EVAL DET) ID) 
(SETQ BB 
(REPLACE » 
(QUOTE (QUOTIENT (DIFFERENCE (TIMES Q B) (TIMES R A) I (EVAL DET)) ))) 
(RETURN 
(REPLACE 
W 

(QUOTE 
(EQUAL CO 
(PLUS 
(QUOTIENT (TIMES (EXPT Y (TIMES A (EVAL AA) ) ) 
(EXPT X (TIMES B (EVAL AA))) ) 
(EVAL AA) ) 
(QUOTIENT (TIMES (EXPT Y (TIMES ALPHA (EVAL BB))) 
(EXPT X (TIMES BETA (EVAL BSD) ) 
(EVAL BB) ))))))))))) 

EDGE 



DEFINEU 

(FREE(LAMBDA(A)(COND((ATOM AMNOTIEQ A VAR) ) ) 
(T(AND(FREE(CAR A))(FREE (COR A))))))) )) 
DEFINEU 

(EDGE( LAMBDA (EXP VAR) (PROG 

(PROBL ARCLOG POSEXPT OLDPROBL ONEMORE NONRAT NEWB* G W CONST NONCON 
B ANSW L FF AORA' H A 
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NINTXP A« B« LDERIV M) 
(SETQ B« (TRIGSUBST EXP») 

(SETQ NINTXPIM2 B* (QUOTE ( TIMES (BB Ml ( QUOTE ( EXPT ( A ( QUOTE! LAM6DA(X ) (NOT 
(FREE X))))KN 

(GUOTE(LAMBDA(X)(NOT(NUMBERP X)))) )))) 

(COEFFTT(C TRUE))))NID) 
(GO BEG) 

LOOP(COND((RAT8 B'MGO FINISHED))) 

(COND((EQ(CAR NONCON) (QUOTE TIMES)) (GO AA» ) ) 

(SETQ FF NONCON) 

(GO GUESS) 

AA(SETQ LDERIV(CONS(QUOTE PLUS) (MAPLIST (COR NONCON) 

(FUNCTION(LAHBOA(C)(OIFF1(CAR C)VAR))))»» 
(SETQ M(COR NONCON)) 
(SETQ L(COR LDERIV)) 

L00P2(C0ND((RAT8(CAR M))(GO SKIP>)> 
(COND((NOT(M2 (CHOICE (CAR L) LDERIV) 

(LISTIQUOTE PLUS)(LIST(QUOTE TIMES) (CAR M) 

(QUOTE(COEFFTT(A TRUE)))) 
(QUOTEIB TRUE))) NIL)) (GO ENDP) ) ) 
SKIPISETQ NONRAT(CAR Ml) 
(SETQ MICDR M)) 
(SETQ L(CDR D) 
(COND(M(GO L00P2))) 
(SETQ FF NONRAT) 
(GO GUESS) 
ENDP(SETQ FF(CAR M)) 

GUESS(SETQ ARCLOG NIL) 
(SETQ POSEXPT NIL) 
(SETQ GtCOND 

l(EQ(CAR FFKQUOTE COS) ) (PROG2 ( SETQ AORA' T) (LIST(QUOTE SINKCADR FF)))) 
UEQICAR FF) (QUOTE SIN) ) (PROG2 ( SETQ AORA' T) (LISTIQUOTE COSMCADR FFDJI 
((EQICAR FFKQUOTE LOG) ) (PROG2( SETQ AORA 1 NIDFF)) 
UEQICAR FFKQUOTE ARCSIN) ) (PROG2(SETQ AORA' NIDFF)) 
UEQ(CAR FFKQUOTE ARCTAN) ) (PROG2I SETQ AORA 1 NIDFF)) 
((£Q(CAR FFKQUOTE EXPT) I (CONO 
((FREE(CADR FF) ) (PROG2J SETQ AORA' T»FF)) 

((NOT(NUMBERP(CADDR FF) > I (PR0G23ISETQ AORA' T) (LIST(QUOTE EXPTKCADR FF) 
(SIMPPLUSUISTICAODR FF)1))) 
(SETQ POSEXPT T))) 

((GREATERP(CADDR FF) 0KPROG23I SETQ AORA' T) (LISTIQUOTE EXPTKCADR FF) 
(SIMPPLUS(LIST(CADDR FF)1))) 
(SETQ POSEXPT T))) 
((LESSP(CADDR FF)-1 ) (PROG2 (SETQ AORA* T) (LISTIQUOTE EXPT) 

(CAOR FFKSIMPPLUS(LIST(CADDR FF)1))))> 
t(AND( EQUAL (CADDR FF)-0.5) (SETQ M(M2(CADR FF) 
(QUOTE(PLUS(COEFFP(A FREEO) ) (COEFFTJC H2 (QUOTE(EXPT(D TRUE)(N EVEN)))NIL) 

(B FREE))))NIL?>) 
(PROG23(SETQ AORA* T) (REPLACE M 

(QUOTE(ARCSIN(EXPT(QUOTIENT(TIMES(MINUS B)C) AI0.5) ) ) KSETQ ARCLOG T))) 
( (EQUAHCADDR FF1-1) (COND( (SETQ W(M2(CADR FF) 
(QUOTE(PLUS(COEFFP(A FREEO) MCQEFFTIC M2 ( QUOTE ( EXPT (0 TRUE) (N EVENJMNIL) 
(B FREE))))NIL>) 
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IPR0G23(SETQ AORA • T) (REPLACE WIQUOTE ( ARCTAN(EXPT(QUOTIENT(TIMES B C)A)0.5)))I 

(SETQ ARCLOG T) )) 

(T(PROG23(SETQ AORA* T) < LI STIQUOTE LOG) (QUOTE EMCADR FFJMSETO ARCLOG T))))) 
(T( ERROR! QUOTE (NOT YET ACCOUNTED FOR)))))) 
(T(ERROR(QUOTE(GUESS NOT YET FINISHED)))))) 

GOGOI CONDI (NOT AORA 1 ) (GO A'SET))) 

(SETQ A(SIMPQUOTIENT(LIST NONCONtDIFFl G VAR) ) ) ) 

(SETQ A(COND((AND ARCLOGISETQ H(M2 AIQUOTE 

(TIMESIB M2(QUOTE(EXPT(PLUS(COEFFP(Bl FREEO)) 

(COEFFTIB2 TRUEMB3 FREE) ) )-l) INI L) 
(C M2(QU0TE(PLUS(C0EFFP(C1 FREEO)) 

(COEFFT(C2 TRUE1MC3 FREE) ))) NIL) (COEFFTT(D TRUE) ) ) JNILJ ) ) 
(CONDI (SETQ M(MATCHSUM(CDADR(REPLACE WIQUOTE B) ) ) 
(CDRtREPLACE W(QUOTE C)>)>) 
(SIMPQUOTIENT(LIST(REPLACE W(QUOTE D))M))) 
(T A) ) ) 
(T AD) 
(SETQ AMDIFF1 A VAR)) 

(SETQ NEWB'(C0N0((N0T(EQ(CAR A") (QUOTE PLUS) ) KSIMPMINUS(LIST 
(SIMPTIMESILIST G A') )) )) 
(T(TIMESLOOP(SIMPMINUS(LIST G1MCDR A))))) 
(GO LOOP 5) 

A'SETISETQ AM SIMPQUOTIENTILIST NONCON GO) 

(CONDI (FINDKSETQ A( INTEGRATE A' VAR)) (QUOTE I NTEGRAL ) ) ( GO KILL))) 
(SETQ NEWB'(COND((EQ(CAR AKQUOTE PLUS ) ) (TI MESLOOPISIHPMINUS 
(LISTIDIFF1 G VARDXCDR A))) 
(TISIMPTIMESILIST -HDIFF1 G VAR)A))))I 

LOOP5ISETQ PROBL(CONS(LIST B' CONST NONCON G FF A A* ARCLOG POSEXPT 1PROBL ) ) 

(CONDUAND ARCLOG(NOT(FREE A) I I (SETQ ARCLOG 1))) 

(CONDI (AND POSEXPT(NOT(FREE A))) (SETQ POSEXPT 1))) 

(PRINT NEWB') 

(SETQ B« NEWB' ) 

BEG (SETQ H(H2 B ' (QUOTE (TI MES(COEFFTT ( A FREE) ) ( COEFFTT ( B TRUE ) ) ) )N IL ) ) 

(SETQ CONST(REPLACE W(QUOTE A))) 

(SETQ NONCONtREPLACE WIQUOTE B)>) 

(SETQ L PROBL) 

L00P3(C0ND((NULL L)(GO PROGRESS)) 

((M2ICADDAR DNONCON NILXGO A))) 

(SETQ L(CDR D) 

(GO LOOP 3) 

A1SETQ M PROBL) 

ISETQ W CONST) 

A2(SETQ W(SIMPTIMES(LIST W (CADAR M) ) ) ) 

(CONDKEQ M LUGO Al))) 

(SETQ M(CDR Ml) 

(GO A2) 

Al(COND((H2 WICADAR L)NIL)(GO KILL))) 

(RPLACAtCDAR L) 

(SIHPQUOTIENT(LIST(CADAR L) ( SI MPDIFFERENCE ( LIST (CADAR DWI)))) 

(SETQ ANSW 0) 

SKIP2(SETQ L PROBL) 

L00P4(C0ND( (NULL L) (RETURN ANSW))) 

(SETQ ANSW(SIMPTIMES(LIST(CADAR L) 
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(SIMPPLUS(LIST(SIMPTIMES(LIST(CADDR(CDDDAR LI) ICARIC000AR L) ) ) ) ANSW ) J ) ) ) 
(SETQ LICDR L>) 
(GO L00P4) 

FINISHEDISETQ ANSH( INTEGRATE B> VAR) > 
(GO SKIP2) 

PR0GRESS(C0NDC(RAT8 B'MGO FINISHED)) 

(ONEMORE(RETURN(QUOTE(NO PROGRESS) ) ) > 

((EQUAL POSEXPT 1HSETQ ONEMORE T) > 

( (EQUAL ARCLOG 1KSETQ ONEMORE T) ) ) 

(CONDI (NOT NINTXP) (GO LOOP))) 

(SETQ UIH2 BMQUOTE(TIMES(EXPT(A EQUALIREPLACE NINTXPCQUOTE A))) 

(M TRUEIJHCOEFFTTIO TRUE) ))) NIL) ) 
ICONOIINULL MX ERROR (QUOTE NINTXP) ) ) ) 
(SETQ M(SINPDIFFERENCE(LIST(REPLACE NINTXP(QUOTE N>) 

(REPLACE WIQUOTE N))>>) 
(CONDI (NOT1NUMBERP M) > (ERROR (LI ST(QUOTE NINTXPIM))) 
((ZEROP M)(G0 LOOP)) 
KGREATERP M OUGO Nl)> 

(ONEMORE(RETURN(QUOTEINO PROGRESS NINTXP))))) 
(SETQ ONEMORE T) 
(GO LOOP) 
NMSETQ ANSWILISTIQUOTE INTEGRAL) NIL (LISTIQUOTE QUOTEIB*) (LISTIQUOTE QUOTE 

VAR ) ) I 
(GO SKIP2) 

KILL1 (SETQ PROBLICDR PROBL) ) 

KILL2IC0NDKNULL PROBL) (GO MAYBEONEMORE) ) ) 

(SETQ LICAR PROBL)) 

(CONDI (CARICODODRICDODDR L) ) ) (GO POSEXPT))) 

(CONDI (NOTICAODDR (CDDDDR L)))(GO KILLD) 

l(EQ(CARICADDDR L)H QUOTE LOG) ) (GO KILLD) 

) 

(SETQ FF(CADDDR(CDR L) ) ) 

(SETQ BMCAR LI) 

(SETQ CONSTICADR LI) 

(SETQ NONCON(CADDR D) 

(SETQ AORA* T) 

(SETQ G(COND((EQ(CAR(CAODDR D) (QUOTE ARCSIN)) 

(LISTIQUOTE EXPTMCADR FF) ISIMPPLUSILISTICAODR FFH)))) 

(T(LIST(QUOTE LOG) (QUOTE EXCADR FF))))> 
(SETQ PROBLICDR PROBL)) 
(SETQ ONEMORE NIL) 
(GO GOGO) 

KILL (SETQ OLDPROBL PROBL) 
(GO KILL2) 

MAYBEONEMOREICONDIONEMOREIRETURNIQUOTEII GIVEUP))))) 
I PR INTl L 1ST I QUOTE ONEMORE I OLDPROBL > ) 
(SETQ PROBL OLDPROBL) 
(SETQ ONEMORE T) 
(GO LOOP) 

POSEXPTICONDI (EQUALICARICDDODRICDDDDR L)))l)(GO KILL!))) 

(SETQ FF(CAOODR(CDR L)>> 

(SETQ POSEXPT D 

I SETQ AORA> Tl 

(SETQ B« (CAR LJ> 

(PRINT(LIST(QUOTE POSEXPT)B«)> 

(SETQ CONSTICADR D) 

(SETQ NONCONICADDR D) 
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(SETQ G FF) 

(SETQ PROBLICDR PROBL) ) 

(GO GOGO) 

) ) ) ) ) 

DEFINE! ( 

(TRIGSUB ST [LAMBDA (EXP) 

(COND 

( (ATOM EXP1EXP) 

( (NOT(MEMBER(CAR E XP )( QUOTE ( TAN COT SEC CSC)))) 

(SIMPIMAPLIST EXP(FUNCTION(LAMBDA(C) ( TRI GSUBST ( C AR C))))))) 
((EQ(CAR EXPKQUOTE TAN ) ) 1 SI MPQUOTI ENT ( LI ST ( LI ST ( QUOTE SINKCADR EXP)) 

(LISTIQUOTE COS)(CADR EXP))))) 
((EQ(CAR EXPKQUOTE CO T ))( SI MPQUOTI ENT ( LI ST ( L I ST ( QUOTE COSUCADR EXP)) 

(LISTIQUOTE SINMCADR EXP))))) 
<(EQ(CAR EXPKQUOTE SEC ))( SI MPQUOTI ENT ( LI ST HLIST(QUOTE COS ) ( CADR EXP))))) 
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integration problems. 891 (Symbolic integrator) solves indefinite Integration prob- 
lems at the difficulty approaching those la the larger integral tablaa. SIR contaiaa 
aeveral aore — th oda than are uaed in the previous anabolic Integration program SAHT, 
and eolvee moat of the problaaa attaapted by 8ASTT in leaa than one aecond. S0LDI8X 
(Solution of Ordinary Differential Sanations Bsatiae) ablvee firat-order, firat-degrae 
ordinary differential equation* at the level of a good college eophoaore and at an 
average of about five second* per problaa attempted. The differencea in philoaopy and 
operation between SADK and SH are described, and aaggestiona are aade for extending 
thla work. 
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